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Preface 


When the Timex Sinclair 1000 was released in the 
summer of 1982, a barrier of sorts was broken. For the first 


‘time, a moderately powerful computer sold retail for under 


$100. No longer could the argument be made that computers 
were only for the wealthy. With the release of the T/S 1000, 
computers came within reach of the vast majority of the 
population, including students. Almost overnight, the 
computing power of large institutions of the 1950s was 
brought into the homes of “the people.” Indeed, the T/S 
1000 may well be termed (as was the Volkswagen) "the 
people’s machine.” 

One of the aims of this book is to meet the unprecedented 
demand for video arcade games, which have gripped the 
imagination of millions of people. The book contains 
twenty-one original games programmed in the T/S 1000’s 
version of the BASIC language. Not only will you be able to 
amuse yourself and your friends with these games once they 
are entered into your machine, but you will be able to follow 
the logic on which they are based, for explanations 
accompany each of the programs. And more than that—we 
also suggest ways in which you can easily amend the 
programs in order to personalize them to better fit your own 
desires. 

Great care has been taken to print the programs in as 


clear a fashion as possible, and none of the programs 
requires more than the 2K of random access memory 
(RAM) that is built into the computer. Despite the 
restrictions imposed by the size of available memory, you 
will be surprised at the wide range of games that are possible. 

For those users who have purchased the additional 16K 
memory, suggestions are made at the end of many of the 
chapters on how to improve the programs and exploit the 
extra memory. And for the benefit of the novice, very 
explicit keyboarding instructions are given on how to enter 
programs, how to edit, how to run programs, how to save 
programs on a tape recorder, and how to load programs into 
the computer from tape. 

The task of writing games for a computer is not an easy 
one. It is our wish that after you have had an opportunity to 
become familiar with the programs you will also examine 
them carefully and pick up some hints that might help you to 
write your own. This is an intellectual challenge that should 
not be minimized. Whatever expertise is gained in this 
endeavor can be put to direct advantage in regular program- 
ming, whether the discipline be mathematics, physics, 
chemistry, finance, or engineering. 

If this is your first attempt at game playing on a 
computer, welcome, and lots of luck! 

Yin Chiu 
Henry Mullish 
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Chapter 0 GETTING STARTED. 


* How to Use This Book 
€ Setting Up the Computer 
ө Keyboarding Hints 


Even if you are already experienced in using the 
Timex/Sinclair1000 computer, you should take a few 
minutes to read this chapter. The T/S 1000 is remarkably 
powerful for so inexpensive a machine, but to use it to its 
best advantage you must be familiar with its unique dialect 
of BASIC, perhaps the most widely used computer language 
in the world, and you must be familiar with the peculiarities 
of the T/S 1000's keyboard, which is organized in such a way 
as to make keyboarding as painless and efficient as possible. 

A brief reading of the points covered in this chapter, 
along with the instructions that appear in the Timex User 
Manualthat came along with your computer, should enable 
you to set up the computer and enter the first program within 
one hour. 


How to Use This Book 
At the heart of this book are the twenty-one games 
programs, with the first program listed in Chapter 1 and the 


twenty-first listed in Chapter 21. We strongly recommend 
that you enter the first four programs before jumping 
around in the sequence to select others. We make this 
recommendation because the first four programs are very 
clearly annotated, and contain explanations of many of the 
typographic conventions that we use in this book. In 
program listings following Chapter 4, we assume that you 
have mastered the basics of the keyboard, so the annotations 
are much fewer and further between. 

Each chapter in this book begins with an explanation of 
the game that you will get when you run the program. You 
can get an idea of just what the game consists of by reading 
this section, called simply “The Game.” Following the 
description of the game is the actual listing of the program, 
and in Chapters 1, 3, and 4 the listing is followed by 
“Keyboarding Notes,” which are meant to provide the 
absolute beginner with instructions on how to manipulate 
the T/S 1000 keyboard. 

Chapter 1 also contains instructions on how to edit a 
program and run a program. Neither of these activities is 
hard to do, but if you have done neither before, you should 
read these sections carefully. 

АП the chapters contain two additional sections: 
*Points of Interest" and "Possible Adaptations." The 
material under “Points of Interest" is intended as an 
explanation of the logic behind certain lines and groups of 
lines in the program. If you already havea pretty good grasp 
of BASIC, you can refer to these "points" if you want to 
analyze the logic of the programs. If you are an absolute 
beginner, these “points” will be somewhat less helpful but by 
studying them in conjunction with the program you will 
begin to get an inkling of how BASIC works. 

The *Possible Adaptations" at the end of each chapter 
either give specific instructions on how to alter a program 

(for the absolute beginner) or suggest ways in which a 
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program can be customized (for more advanced readers). 
Note that some (but not all) of the adaptations require more 
than the 2K RAM built into the T/S 1000. If you haven't 
purchased the 16К RAM expansion pack, you will not be 
able to make all the modifications. 

Understanding a program is a serious intellectual 
challenge, but it can also be a lot of fun. We hope that you 
will use the instructions in this book to tinker with and revise 
and expand and customize these programs. Before long 
you'll realize that you are truly “getting into" these 
programs, and in a very real sense, you'll be making them 
your own. 


Setting Up the Computer 

Instructions for setting up the T/S1000 appear in 
Chapter 1 of the Timex User Manual (page 5). These 
instructions are fairly straightforward, and you should not 
have very much trouble following them. We have found, 
however, that a few additional adjustments to the setup can 
make your system even easier to use. 


l. The cable connecting your computer to the TV: The 
manufacturer has supplied a 4-foot cable that connects your 
computer and the TV. We've found that in terms of 
convenience and comfort this cable is much too short, so we 
recommend that you replace the 4-foot cable with a 6- or 8- 
foot cable. (Most electronics or television and radio stores 
will have such cables in stock, and one shouldn't cost you 
more than a few dollars.) 

For the most part the T/S 1000 produces a TV image 
with black characters on a white background, so the screen is 
quite bright. With the 4-foot cable supplied by the manu- 
facturer, we found ourselves sitting almost on top of the 
screen, and after a few hours of work we were suffering from 
eye strain and beginning to feel a little bit spaced out. With a 
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longer cable, we were able to move the TV to the farend ofa 
table. In such a setup, we still found the image on the screen 
to be perfectly readable, and it was certainly more restful for 
our eyes. 


2. The channel switch on the bottom of the computer: 
At times when we’ve been programming or playing a game 
on the T/S 1000, we've slid the computer a few inches across 
the table to let another person take the controls. Sometimes 
when we’ve done this, we’ve completely lost the image on the 
screen. A little investigative work turned up the answer: the 
channel-selection switch on the bottom of the computer is 
supposed to be recessed into the machine, but on some of the 
computers we’ve dealt with it is not recessed enough. As a 
result, sliding the computer across a surface can throw the 
switch from one channel to the other, and there will be a 
temporary loss of the picture. This is not something to worry 
about. By simply flicking the switch back to the proper 
channel position, you should find that the image comes back 
onto the screen with no loss of whatever has been stored in 
memory. If this problem plagues your machine, you might 
want to consider “locking” the channel selection switch in 
place with a piece of tape. 

We have also found that the manufacturer’s advice 
about whether to use channel 2 or channel 3 does not always 
seem to be the best advice. Of the three machines we tested, 
two worked best on channel 3 and the third worked best on 
channel 2. Since all three machines were tested in New York 
City, where the local CBS-TV affiliate broadcasts on 
channel 2, we assumed that channel 3 would work best for 
us. But this was not the case for two of the three machines we 
tested. We can’t explain this fact, but we want you to be 
aware of it. 


3. Setting up your tape recorder: In saving programs 
and loading programs, we’ve found it best to have the 
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“volume” control of the tape recorder at or near its loudest 
setting, as mentioned in the Timex User Manual. Similarly, 
we’ve had the best results in loading and saving when the 
“tone” control is at its highest setting—toward “treble” 
rather than “bass.” Furthermore, if your tape recorder has 
both “monaural” and “stereo” modes, use the “monaural” 
setting. If a stereo setting is all that is available, you should 
turn the “balance” control all the way to the left or all the 
way to the right and leave it there for both loading from and 
saving to the tape recorder. 

The Timex User Manual also contains a very clever 
suggestion about how to store programs in such a way that 
they are easy to find: see page 14 of the manual for 
instructions on how to insert a voice announcement 
preceding each of the programs you store on tape. Be sure, 
however, to disconnect the microphone before you save the 
actual program from the computer to the tape. 

Three further points: First, we’ve found that it pays to 
use a fairly high quality recording tape. Second, it is a good 
idea to make a backup copy of each program, preferably on 
a completely different cassette. And third, you should record 
programs on one side only of any tape, since if both sides are 
used, the signals on one side may interfere with those on the 
other. 


4. Perhaps the greatest shortcoming of the T/S 1000 is 
its keyboard. Unless your hands are the size of Elliot's or 
E.T.’s, you'll have to take great care to hit the right key. 

For maximum comfort, convenience, and accuracy of 
keyboarding, keep the keyboard well lighted and (as we have 
already mentioned) a good distance away from that glaring 
screen. With a few minutes of practice, you'll find that the 
keyboard is manageable. 


Keyboarding Hints 
If you haven't already had some experience with the 
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T/S 1000’s keyboard, you should read this section carefully. 
As you read it, you may want to refer to the illustration of the 
keyboard in Appendix C at the end of this book. 


1. When you are typing in the number 1, be sure to hit 
the 1 key and not the L key. The 1 key is located on the top 
row of the keyboard at the extreme left. 


2. Don't confuse the number 0 with the letter O. In 
program listings in this book and on the screen of your TV, 
you'll notice that zero is printed with a slash through it, like 
this: @. 


3. The letter I and the number 1 may also look alike to 
you as you read the program listings, but you must be sure to 
distinguish between them. The letter I is shown in the 
programs this way: |. The number 1 is listed in the programs 
this way: 1. 


4. In some of the programs we make use of an 
underscore (__) to indicate that you should leave a space (by 
hitting the SPACE key). Do not attempt to key in this 
underscore, because you will not find it on the T/S 1000 
keyboard. We make use of this symbol only within 
quotation marks in the program listing because it is only 
within quotation marks that inserting the proper spaces may 
be crucial. 


5. In this book, the only quotation marks we use are the 
ones located on the P key. (For none of our twenty-one 
programs should you use the other quotation marks, which 
are located on the Q key.) 


6. All words printed in BOLDFACE in the program 
listings are called keywords. Each of these words is accessed 
by a single keystroke. If you try to type in one of these words 
letter-by-letter, the computer will either not accept them or 
will not run the program correctly. So whenever you see a 
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boldface word in a listing, be sure to access it with a single 
keystroke. (A list of the T/S1000's keywords and how to 
access them is contained in Appendix A at the back of this 
book.) 


7. All of the following mathematical symbols are also 
accessed with a single keystroke: 

<> which means “not equal to” and is found on the T 
key. 

>= which means “greater than or equal to" and is 
found on the Y key. 

<= which means “less than or equal to” and is found on 
the R key. 


8. Keep in mind that any given key on the T/S 1000 
keyboard may have as many as five meanings, depending on 
the mode you are in. The mode is indicated by a cursor, as 
follows: 

which indicates the keyword mode. When you are 

in this mode, you will access the word printed in 
white above the key. 

which indicates the letter mode. When you are in 

this mode, you will access the “primary” (dark 
black) character on the key. 

which indicates the function mode. When you are 

in this mode, you will access the word printed in 
white below the key. 

which indicates the graphics mode. If you hit a key 

in this mode, the “primary” (dark black) character 
will appear in inverse video. (This means that the 
character will appear on the screen as a white 
number or letter printed in a small black box.) If 
you hold down the SHIFT key while in the 
graphics mode, some of the keys will give you the 
small graphics symbol shown at the lower right 
corner of the key. For a list of these graphics 
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symbols and how to access them, see Appendix В. 
at the end of this book. 
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Chapter 1 COPY САТ 


The Game 

Program 1: COPY CAT 
Keyboarding Notes 
Editing the Program 
Running the Program 
Points of Interest 
Possible Adaptations 


The first game we will present is called “Copy Cat.” 
We've chosen to present it first not because it is the most 
interesting game in this book, but because it is one of the 
easier programs to understand. Whether you are a complete 
novice to programming or an old hand at it, the chances are 
good that you will derive a good deal of useful information 
from our step-by-step discussion of this program. 


The Game 

The object of “Copy Cat” is to type the letter that 
appears in the middle of the screen as soon as possible after it 
has been displayed. If you are successful in typing the letter 
correctly in the amount of time allotted, a point is added to 
your score automatically. Your score is then displayed at the 


bottom of the screen, after which the next letter is presented. 
However, the time allowed for a response after each 
successive attempt is shortened. As soon as you either make 
a mistake in responding or take more time than is allowed, 
the game is terminated, indicating which letter was missed, 
and what, if any, the total score was. 

What follows is a listing of the program. Take a few 
minutes now to look it over and then follow the explicit step- 
by-step instructions that appear just after the program 
listing. Within a few minutes you’ll find that you are on your 
way to becoming an experienced T/S 1000 keyboarder. 


Program 1: COPY CAT 


100 LET X$= "ASDFGHJKL" See the "Keyboard- 
ing Notes" that 


105 LET Т-0 begin оп page 11. 
110 LET N=@ 


10 CHAPTER 1 


120 PRINT AT 3,12; ее 

125 LET Y$-2X$ (INT (RND*9+1) ) 

130 LET N=N+1 

140 PRINT AT 11,15; Y$ 

150 PAUSE 150 -N 

160 PRINT AT 11,15;" " 

170 IF INKEY$- Y$ THEN GOTO 200 

180 PRINT АТ 19,5; "YOU. MISSED; IT WAS . 
(yero 

190 STOP 

200 LET T=T+1 

210 PRINT AT 21,15;T 

220 GOTO 125 


That underscore 
within quotation 
marks indicates 

a space. 


Keyboarding Notes 

There is a spare copy of the program “COPY CAT" at 
the back of this book. Tear it out now, and mark it with your 
own notes as you follow these steps: 


1. Switch on the computer and be sure that the [Ñ cursor is 
displayed in the lower left corner of the TV screen. 


2. As you are probably aware, all BASIC statements must 
begin with a statement or line number. Since we have 
arbitrarily assigned the line number 100 to the first line of the 
program, type in 100. You will note that the ІЙ cursor 
remains on the screen after 100 has been typed in. 


3. After the statement or line number 100, you will want to 
type in the keyword LET, which is printed in boldfacein this 
book's listing of the program. The boldface listing indicates, 


COPY CAT 11 


as you learned in Chapter 0, that the word in question should 
be entered with a single keystroke, and not letter-by-letter. 


4. Now type in the letter X, located near the left-hand 
corner of the bottom row of keys. 


5. We now want to type in the symbol $. Notice that $ is 
printed in red, close to the top of the U key. This symbol is 
therefore accessed by using the SHIFT key, the one on the 
extreme left side of the bottom row of keys. With one finger 
hold down the SHIFT key and, at the same time, press the U 
key with a finger of the other hand. This operation must be 
done simultaneously. It will not work if you press these keys 
in succession—they must be depressed at one time. We will 
indicate this dual-key feature in the future by writing, for 
example, shifted-U. 


6. The next symbol needed is the equal sign, =, which is 
found on the L key. You will notice that this is also printed in 
red, so once again the SHIFT key must be used. Remember 
to hold down the SHIFT key at the same time you depress 
the L key. 


7. The double quote sign, ”, is also printed in red, so it too 
will be accessed using the SHIFT key. (By the time you have 
typed in this rather short program you should become an 
expert on the SHIFT key!) Make sure to use the double 
quote sign—the one on the P key, not the paired quote sign 
on the Q key. 


8. Now enter the sequence of letters ASDFGHJKL followed 
by aclosing double quote sign (shifted-P). To send the whole 
line to the computer you must now press the ENTER key. If 
you have typed it in correctly, the line will be transferred to 
the top of the screen with the Ed cursor appearing after the 
line number 100. (This symbol in reverse video is used on the 
computer as an edit cursor, about which we shall have 
something to say later on.) If you have not typed in the line 
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correctly, the Ё cursor, indicating a syntax error, may 
appear at the end of the line. In that case the T/S 1000’s 
built-in checking system will not accept the line, and it will 
not move to the top of the screen when you hit the ENTER 
key. At this point the best thing to do may be to hit the 
DELETE key (shifted-0) as may times as necessary to 
remove the line. You can then start again. (This is actually 
performing an elementary editing function; a more complete 
discussion of editing appears later in this chapter.) 


9. Lines 105 and 110 are straightforward—they are called 
assignment statements. They merely assign values to the 
variable specified on the left of the equal sign. Type in each 
and enter each into the listing by depressing the ENTER key. 
Again, each line will move to the top of the screen when it is 
entered. In line 120, the keyword PRINT is accessed by 
pressing the letter P while you are still in the | mode. The 
next thing to be typed is the keyword AT, which appears at 
the bottom of the С key. This means that it isa function, and 
can be entered only in the function mode. To get into the 
function mode, press the SHIFT and the ENTER keys 
simultaneously. Once this is done, the [B cursor changes to 
the Ш cursor, signifying that you are now in the function 
mode. When the C key is pressed in the [Ë mode, the word 
AT appears on the screen following the word PRINT. You 
will also notice that the IB cursor has returned to the screen. 


10. Now enter the number 3, followed by a comma, then the 
number 12, followed in turn by the semicolon and an 
opening quote sign. You will notice that the next two words 
in the listing, COPY and CAT, are in reverse video. In order 
to achieve this effect all that is necessary is to switch the 
computer into the graphics mode. To place the computer in 
the graphics mode simply press shifted-9. This displays 
the |6 cursor. Now type in the words COPY and CAT with 
one space between them. 


COPY CAT 13 


11. To exit from graphics mode once you have entered 
COPY and CAT in reverse video, you may either hit the 
shifted-9 key again or the shifted-ENTER key. This permits 
the closing quote to be typed when the ІН cursor reappears. 


12. Once you have sent line 120 to the top of the screen by 
depressing the ENTER key, you are ready to move on to line 
125. Note that in order to key in INT and RND, you must be 
in the function mode. This means that you must access 
the cursor twice by using the shifted-ENTER key for 
each of these words. 


13. Lines 130, 140, and 150 are fairly straighforward. Key 
each one in and ENTER it now. In line 160, be sure to use the 
shifted-P key to access the double quote sign (") twice with 
one space between the quote signs, as indicated by the 
underscore. Do not try to key in this underscore, since it 
doesn't exist anywhere on the keyboard. Its only purpose 
is to indicate a space. 


14. Line 170 is not difficult. Note, however, that the keyword 
THEN can be accessed in the ЇЙ mode by simply hitting the 
shifted-3 key. Also notice that after THEN is keyed in, the 
cursor reappears, making the keying of the next word, 
GOTO, a simple matter: simply hit the G key. 


15. Once you've entered line 170, take a moment to stop and 
examine the way in which line 180 is listed in this book: note 
the four short lines or *underscores" that appear within the 
quotes at the end of the line: 


180 PRINT АТ 19,5; "YOU. MISSED; ІТ WAS . 
(^y $n 


These underscores cannot, as discussed in Chapter 0, be 
found on your T/S 1000 keyboard. Their only purpose here 
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is to indicate when and where the SPACE key should be hit 
when you are typing within quotation marks. Remember, 
within quotations you are typing what is called a "literal," 
and entering the correct number of spaces in the right places 
is often crucial in literals. 


16. If you've gone ahead and typed in line 180, you may have 
already noticed that there are further differences between the 
listing in this book and what you see on the screen. First, let's 
look again at the listing as it appears in this book: 


180 PRINT AT 19,5;"YOU . MISSED; IT WAS . 
(Ж Г 

As you key this line onto the screen, however, it will appear 

as follows: 


180 PRINT АТ 19,5; "YOU MISSED; | 
TWAS (”;Y$”)” 


Obviously, the underscores that appear in the listing do not 
appear in the line asitappears on the screen. (See note 15.) In 
addition to that, however, you will note that the T/S 1000 
automatically carries over the letter T of the word IT to a 
“new” line on the screen. (Actually, the T is still in line 180, so 
we call this "new" line a “turnover.”) When you hit the 
ENTER key and send this line to the top of the screen, you 
will see still another change, as follows: 


180 PRINT AT 19,5; "YOU MISSED; 

IT WAS (^ Y$")" 

Now the I of IT has been carried to the “turnover” to join its 
companion T. This occurs after you hit the ENTER key 
because the T/S 1000 has automatically shifted the state- 


ment number, 180, one space to the right, just in case you 
want to add any program lines numbered 1000 or more. This 


COPY CAT 15 


is not of great importance in and of itself, but it is important 
for you to remember what we said in Chapter 0: The 
program listings in this book may show statement lines set 
up somewhat differently from what you see on the screen. 
This is not something to worry about, as long as you have 
taken great care to key in the proper space units within the 
literals. (And not made any mistakes in keying any other 
numbers, letters, and symbols, of course!) 


17. Lines 190, 200, 210, and 220 are simple, and by now you 
shouldn't have much trouble with them. So key in each one 
and hit the ENTER key for each, and you'll be ready to... 
EDIT! We're sure that by now you're anxious to start 
running the game, but if you take just a few more minutes to 
double-check your work so far, you may save a lot of timein 
the future. 


Editing the Program 

Suppose that while typing in a line you make a mistake. 
Rest assured that this happens to every programmer, no 
matter how smart or how careful he or she is. So when it 
happens to you (notice we didn't say if it happens to you) 
don't panic—it's par for the course. 

If you've completely forgotten to enter a line you can 
simply type that line at the bottom of the screen and hit the 
ENTER key. It will automatically insert itself in its proper 
place in the program. Youcan also retypea line that has been 
incorrectly entered; when you ENTER this retyped line, it 
will automatically “bump” the incorrect line from the 
program. 

If when typing in a character you realize immediately 
that you hit the wrong key, the DELETE key (shifted-0) will 
erase the last character or keyword and reposition the cursor 
to the preceding location. This enables you to type in the 
correct character. The original one disappears for all time, 
and nobody need know. 
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Suppose, however, that a line has already been entered 
into the listing and you now decide that you want to change 
it in some way or other. If it is the current line that you want 
to change (the E2 cursor signifies which line is current), hit 
the EDIT key (shifted-1). This brings downa copy of the line 
to the bottom of the screen so that it may be changed. If the 
line in a listing does not have the cursor next to it, simply hit 
LIST and then the line number and ENTER. This will bring 
the line you want to the top of the screen with the El cursor 
next to it. Now it is the "current" line, and you can bring it 
down by hitting the EDIT key (shifted-1). 

Once a line is at the bottom of the screen and readyto be 
edited, you can type shifted-8. This has the effect of moving 
the cursor to the right. (Shifted-5 moves the cursor to the 
left.) Stop at the appropriate place and make the changes 
you want. Then, when the ENTER key is pressed, the edited 
line returns to its proper place in the program. 


Running the Program 

Now most of the work has been done and it is time to 
execute the program. Make one last check ofthe program on 
your screen, comparing it carefully with the listing in this 
book. If they match, hit the R key, which in the |4 mode 
causes the RUN command to come up on the screen. Then, 
by hitting the ENTER key, you will start the program 
running. 

Enjoy! And if you enjoy *COPY CAT" enough to want 
to save it, turn to Chapter 22 in this book, *Saving Your 
Programs on a Tape Recorder." 


Points of Interest 

Line 100: The set of letters from which the computer 
randomly picks a single letter is composed of A,S,D,F,G,H, 
J,K, and L. You will notice that these are the letters located 
on the third row of your computer keyboard. If you now 
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look at the listing of Program 1, you will notice that these 
nine letters are assigned to the string variable Х8. 


Lines 105 and 110: These lines set to 0 the Т counter (for 
Total points) and the N counter (for the Number of frames to 
be used in the timing mechanism of the computer). 


Line 120: This line uses two features that are very commonly 
found in games program. The first of these features is the 
instruction PRINT AT. This instruction allows whatever 
follows to be displayed on the screen at a specified point, as 
in this example from our program: 


120 PRINT AT 3,12; "ее 


The 3 indicates that the first letter of the literal will appear at 
a point 3 lines from the top of the screen. The 12 indicates 
that the first letter of the literal will appear 12 spaces from 
the left-hand edge of the screen. The second feature used in 
line 120 and many other games programs is the inverse video 
function, which highlights white letters against a black 
background, thus setting them apart from other material 
displayed on the screen. 


Line 125: This line selects one of the nine letters by using the 
random (RND) function that is built into the T/S 1000. The 
randomly selected letter is stored in the string variable 
named Ү$. 


Line 130: The frame count (where | frame is approximately 
equal to .02 second) is incremented by 1 in this line. 


Line 150: This line contains a PAUSE which temporarily 
stops the execution of the program for the specified number 
of frames. (Again, there are about 50 frames per second.) 
This has the effect of “freezing” the display for the period 
specified, enabling the viewer to read what is there. At this 
point, the pressing of any key whatever discontinues the 
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effect of the PAUSE and permits the program to resume 
execution. 


Line 160: A blank letter character is superimposed over the 


| displayed letter, thereby giving the effect of the displayed 

; Е letter being “flashed” on the screen for a limited period of 
time. 

E Í Line 170: If it is found in line 170 that the response matches 


the one shown on the screen, control is passed to line 200, 
where a point is added to the total score. This score is then 
displayed for the benefit of the player, and the next round is 


ртр 
е | automatically initiated. However, if the keyed-in letter was 
= incorrect or if it was not typed in time, the message YOU 
MISSED; IT WAS...is displayed, and the program is 
terminated. 


Possible Adaptations 

1. Notice that for each successful try, 1 is added to N in line 
130. This affects the length of the pause in line 150 since it is 
specified to have a duration of 75 - N. If you think about this 
carefully, you will realize that the larger the value of N, the 
smaller this expression becomes and therefore the shorter 
the PAUSE. 


pul 


2. The string in quotes in line 100 can of course be changed to 
any set of 9 characters you might choose. 
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Chapter 2 RANDOM 


e The Game 

ө Program 2: RANDOM 
e Points of Interest 

* Possible Adaptations 


The Game 

This program causes the computer to generate a 
random number between 0 and 100. The user is asked to 
guess this number in the fewest tries possible. In this game 
the computer always displays a lower and an upper bound, 
between which the number is to be guessed. Initially, the 
display shows: 


Q«-X«-100 


where 0 is the lower bound and 100 is the upper bound. For 
each guess made, a square dot is displayed near the bottom 
of the screen. As soon as a guess is typed in, a test is made to 
determine whether it matches the number randomly selected 
by the computer. Let us assume the computer randomly 
selects the number 38 and the player incorrectly guesses 76. 
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The computer adjusts the displayed bounds accordingly and 
will show the new bounds on the screen as shown: 


Ø<=X<=76 


which tells you that your guess was too high and you should 
now confine the range of your guess to a number between 0 
and 76. 

If your guess is correct, a message is displayed telling 
you the number of guesses that were made and the game 
terminates with a display of the following type: 


38 == 38 == 38 


This remains on the screen for a few seconds (during 
which time you may congratulate yourself) and the com- 
puter then selects another number for the next round. If you 
want to stop the game at any time simply type in STOP and 
then hit the ENTER key. 
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Program 2: RANDOM 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 


260 
270 
280 


290 
300 
310 


LET С-0 

LET X=INT (RND* 101) 

LET L=@ 

LET Н-100 

PRINT AT 3,8; "GUESS. MY NUMBER" 
PRINT АТ 11,9;L;""_<=_X_<=_"sH;"_ " 
INPUT N Watch it. That's 

LET G=G+1 B eel d 

FOR І-1 TO G also line 200. 

PLOT (G-1)*3+1,0 

NEXT | 

IF N=X THEN GOTO 25@ 

IF N<X AND N>L THEN LET L=N 

IF N>X AND N<H THEN LET H=N 
GOTO 150 

PRINT AT 15,5; “ҮОУ. СОТ IT IN "5G; 
" TRIES" 

LET L-X 

LET H-X 

PRINT AT 11,9;L;" -- “Х;” == '5H; 
PAUSE 150 

CLS 

GOTO 100 
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Points of Interest 


Line 110: This line generates a random number between 0 
and 100. 


Lines 140 and 150: These lines set up the display to advise the 
user of what to do. 


Line 160: This line accepts the user’s guess. 


Lines 170-200: These plot the square dots at the bottom of 
the screen, indicating the number of tries made. 


Lines 210-230: These compare the guess to the computer’s 
random number. 


Lines 250-280: These lines display the result if the guess is 
correct. 


Possible Adaptations 

You could change the range of possible numbers from 0 
to 100. A smaller range, from 0 to 10, for example, could be 
generated by replacing lines 110 and 130 as follows: 


110 LET X=INT (RND* 11) 
130 LET H-10 
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Chapter 3 GATES 


The Game 

Program 3: “GATES” 
Keyboarding Notes 
Points of Interest 
Possible Adaptations 


The Game 

*Gates" is a test not only of your physical dexterity but 
of your sense of timing. You are confronted with a pair of 
gates that continually open and close. The idea of the game is 
to shoot a bullet (in the form of the letter X) through the 
opening at the point at which the gates are closest together 
without actually being closed. If you shoot when the gates 
are either open too wide or are closed, you lose the point. 

Any key on the keyboard may be pressed to shoot the 
bullet. If you are successful, you will see the bullet propelled 
from the bottom of the screen through the gate opening. 
Each successful attempt clocks up 100 points to the total 
score. For each unsuccessful attempt, you will lose 100 
points. So long as you are successful, the game continues. 
More likely, you will fail at some point, and as soon as your 
score falls below -100, the game is terminated. 
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Program 3: *GATES" 


100 
105 
110 
120 
130 
135 
140 
150 
160 
170 
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LET I=12 
LET P-0 
LET J=15 
LET К=Ј 
FOR T=1 TO6 


кы |w" qu. 


ОООО, 


Again, that is the 
letter I that equals 
12. See also lines 
200, 210, 220, 230. 


IF T>3 THEN GOTO 170 


LET J=J-1 
LET K=K+1 
GOTO 200 
LET J=J+1 
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180 LET K=K-1 
200 PRINT AT !,J; "BUM" 

210 PRINT AT LK; “ШЕ” 

215 IF INKEY$ €» "" THEN GOSUB 300 
220 PRINT АТ |,J;" " 

230 PRINTATL,K;" " 

240 NEXT T 

250 GOTO 130 

300 IF J<> 14 THEN GOTO 400 
305 FOR L=19 TO 2 STEP -1 
310 PRINT AT L,15; "X" 

315 PRINTAT L,15;" " 

317 NEXT L 

320 LET Р=Р+100 

330 PRINT АТ 21,13;Р;" — " 
345 IF P< - 100 THEN STOP 

350 RETURN 

400 LET P=P-100 

410 GOTO 330 


Keyboarding Notes 

1. Note the Bl symbol within literals at the end of line 200. 
It is accessed by first entering the @ mode. (To get into the 
graphics mode, you hit shifted-9.) Then hit the SPACE key 
and the symbol will appear. 


2. The <> symbol in line 215 is accessed with one key- 
stroke, shifted-7. Do not use shifted-N and shifted-M. 
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Points of Interest 
Lines 130-250: These control the movement of the gate. 


Line 215: This line continuously scans the keyboard to 
determine if a shot has been fired. 


Line 300: This line tests if the shot was successful. 


Lines 305-330: The bullet is fired and 100 is added to the 
score for every hit, which is then displayed. 


Line 345: This line tests whether the score is less than -100. 
Line 400: If the shot misses, points are deducted by this line. 
Possible Adaptations 


1. In line 310, you may change the “X” to any other single 
character you might like to use to represent the bullet. 


2. Rather than having a fixed value of 100 for each hit ora 
fixed value of -100 for each miss, you can have the computer 


generate a random value by making changes in the following 
lines: 


320 LET P=P+INT (RND* 100) 
400 LET P-P-INT (RND*100) 
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Chapter 4 SLO! M 


The Game 

Program 4: SLOT M 
Keyboarding Notes 
Points of Interest 
Possible Adaptations 


The Game 
Most of us are familiar with slot machines, commonly 


referred to as *one-armed bandits." This program simulates 
the spinning windows that are characteristic of the slot 
machine. At the beginning of the game, the user is asked to 
type in the amount to be betted. This amount becomes the 
standard bet for the remainder of the game. If you watch the 
screen carefully, you will begin to see the first window spin. 
At any time you may stop the window from spinning by 
pressing any key. The moment the spinning of the first 
window stops, the second window begins to spin and the first 
one remains stationary. To stop the second window, press 
any key. After the second window has been stopped, the 
third window will start spinning. When this final window has 
been stopped (by pressing any key on the keyboard), the 
round is over and scores are awarded as follows: 
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e [fall three windows display the same symbol, you have hit 
the jackpot, and the payout is five times the amount of the 
initial bet. 


e If the first two match, the payout is two times the amount 
of the original bet. 


ө Otherwise you have lost the game. 


The amount of winnings is then displayed at the bottom 
of the screen and a new round is initiated. 


Program 4: SLOT M 


5 LET B-0 

6 PRINT "ENTER. BET" 
7 INPUT R 

8 CLS 
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10 
20 
2b 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
125 
130 
150 
155 
16@ 
170 
175 
180 
200 
210 
220 
230 
240 
250 


LET 1=8 
LET J=4 

PRINT AT 3,10; "Еее 
GOSUB 200 

LET W1=T 

LET J- 13 

GOSUB 200 

LET W2-T 

LET J=22 

GOSUB 200 

IF W1=W2 AND W2=T THEN GOTO 150 

IF W1=W2 THEN GOTO 170 

PRINT AT 19,9;" YOU LOSE" 

LET O=-1 

GOTO 600 

PRINT AT 19,9;"* JACKPOT *" 

LET O=5 

GOTO 600 

PRINT АТ 19,9;"* 2 MATCH *" 

LET О-2 

GOTO 600 i Dui сые 
REM 

PRINT АТ 1+1, 7; PAPST" 

PRINT АТ 1+2, 7; EB. BIN" 

PRINT АТ 1+3, 7; "И ШОШ" 

PRINT АТ 1+4, 7; DE ШШ” 
PRINT АТ 1+5, Ј; "ьа ' 
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26@ 
270 
300 
310 
320 
330 
340 
360 
370 
400 
410 
420 
430 
440 
460 
470 
500 
600 
605 
610 
620 


630 
640 
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LET T-1 

IF ІМКЕҮ$ <> "" THEN RETURN 
PRINT AT |+1,J; RS" 
PRINT AT |+2,J; BEERE” 
PRINTATI-3,,;"EEE EB 
PRINT АТ |+4,J; EBA” 
PRINT АТ I+5,J; SRE” 
LET T=2 

IF INKEY$<> "" THEN RETURN 
PRINT АТ I+1,J; "Mmmm" 
PRINT AT |+2,J; ЕШ BIN" 
PRINTATI+3,J; E 8 
PRINT АТ I+4,J; ГЕ ШЕ” 
PRINT АТ 1+5, 7; “lllw '' 

LET Т=3 

IF INKEY$<> '"" THEN RETURN 
GOTO 210 

LET B=B+O*R 

PAUSE 100 

CLS 

PRINT AT 21,8; "TOTAL - $ “В; 


PAUSE 100 
GOTO 10 
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Keyboarding Notes 

1. Line 210 consists of five graphics symbols. To access 
these, first put the computer in the @ mode by hitting the 
GRAPHICS key (shifted-9). Now that you are in the 
graphics mode, hit the following keys: shifted-E( I), shifted- 
7(Ё®), shifted-7(F), shifted-7(W8), and shifted-R(™M). 


2. The literal in line 220 consists of five additional characters, 
four of which are accessed in the graphics mode. The central 
“character,” however, is simply a space (symbolized by the 
underscore). It must be accessed from the ІҢ mode. To key 
it, leave the graphics mode (by hitting the shifted-9), hit the 
SPACE key once, and then reenter the graphics mode to key 
in the last two symbols. 


Points of Interest 
Lines 30-90: These set up the position of the windows. 


Lines 100-180: These determine whether the game is lost or 
won and the amount of the payoff. 


Lines 210-500: These display the spinning window and 
handle the polling of the keyboard. 


Lines 600-620: The number of dollars won is calculated and 
the total is displayed. 


Possible Adaptations 

This program uses up almost all of the 2K memory 
available. Modifications are possible only if an additional 
RAM pack is added. Assuming this has been done, lines 
620-640 may be amended to include a section in which the 
value of the bet for each round is entered before it starts. 

Another possibility is to increase the number of 
symbols in each window to 4 or possibly 5. It should be 
stated, however, that this is a difficult change to implement; 
if you want to try it, you might be guided by examining lines 
210—500 carefully. 
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Chapter 5 HIGH ROLLER 


The Game 

Program 5: HIGH ROLLER 
Points of Interest 

Possible Adaptations 


The Game 
This is a fast-paced graphics game similar in style to the 
familiar game of “craps.” The rules for the game are: 


ө 7 or 11 on the first roll is a win. 
€ 2 or 3 on the first roll is a loss. 


* Any other number on the first roll becomes your “mark.” 
You must then roll the dice continually until the mark is 
rolled again. If a 7 is rolled before the mark, however, you 
lose. 


Important Note: In orderto contain the program within 
2K of memory, it was necessary to avoid permitting the 
participant to interact. Once the program begins, it continues 
on its merry way by itself, permitting you only to observe the 
game in progress, and place whatever bets you please. 
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Program 5: HIGH ROLLER 


10 LET 1=9 

15 LET M=0 

20 LET J=11 

22 PRINT АТ 18,18;"  " 

24 LET T=0 

25 FOR К-1 TO2 

30 LET X=INT (RND*6+1) 
40 IF K=1 THEN GOTO 60 
50 LET J=17 

60 GOSUB (X+2)* 100 

70 LET T=T+X 
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90 

95 
100 
103 
105 
110 
120 
130 
140 
143 
145 
150 
160 
170 
200 
205 
280 
285 
286 
287 
288 
290 
300 
310 
320 
330 
340 


NEXT K 

LET M=M+1 

PRINT AT 18,12; "VALUE “ЛТ 
PAUSE 100 

IF M<>1 THEN GOTO 150 


IF T=7 OR T=11 THEN GOTO 200 


IF T=2 OR T=3 THEN GOTO 280 
IF М<> 1 THEN GOTO 150 
LET H=T 

PRINT АТ 20,12; "MARK. ';H 
GOTO 20 

IF H- T THEN GOTO 200 

IF T=7 THEN GOTO 280 

GOTO 20 

PRINT AT 16,12; "YOU. WIN" 
GOTO 285 

PRINT AT 16,12; "YOU, LOSE" 
PAUSE 100 

LET М=@ 

PRINT АТ 2012;°_______ N 
PRINTAT16,12;"_ _  . а 
GOTO 2@ 

PRINT АТ 1); RRR" 
PRINT АТ I+1,J; III "B" 
PRINT АТ I+2,J; “BE _ HI 
PRINT AT 1*3,J; "ills E" 
PRINT AT I+4,J; BEER” 
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350 RETURN 


400 
410 
420 
430 
440 
450 
500 
510 
520 
530 
540 
550 
600 
610 
620 
630 
640 
650 
700 
710 
720 
730 
740 
750 
800 
810 
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PRINT AT І, Ј; ҒЫШ” 
PRINT АТ I+1,J; "I| ШЕШ” 
PRINT АТ 1+2;.); SR’ 
PRINT АТ 1+3, J; "ШШШ T" 
PRINT АТ 1+4, Ј; Ш “Шы” 
RETURN 

PRINT АТ |,J; RGR" 
PRINT AT |+1,J;" au’ 
PRINT АТ 1+2,J/;" ШЕ 
PRINT AT 1+3, 7; SP’ 
PRINT AT 1+4, 7; BEELA 
RETURN 

PRINT АТ |,J; SRE" 
PRINTATI+1,J; ñ BB E" 
PRINT АТ I+2,J; RB” 
PRINT АТ I+3,J; ñ B BN" 
PRINT АТ I+4,J; RS’ 
RETURN 

PRINT АТ |,J; RR” 
PRINT AT I+1,J; “Ый ЫЫ” 
PRINT АТ I+2,J; “ШЕ ШШ” 
PRINT АТ I+3,J; Raa’ 
PRINT АТ |+4,J; "БЫ Ы 
RETURN 

PRINT АТ І, Ј; “ШЫНЫНЫ” 
PRINT АТ !*1,J; "ы 
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820 PRINT АТ I+2,J; ш E 8’ 
830 PRINT АТ 1+3, Ј; "ЕЕЕ" 
840 PRINT АТ 1+4, Ј; “ШаШыШ” 
850 RETURN 


Points of Interest 
Line 30: This generates the die value—an integer between 1 
and 6. 


Line 60: This line is a calculated GOSUB statement which 
contains a formula that when evaluated sends control to the 
routine that generates the correct display. 


Line 105-280: Theselines handle the testing of the throw and 
determine where to send control, depending upon the rules 
of the game. 


Lines 300-850: These are devoted entirely to generating the 
sophisticated display. 


Possible Adaptations 

1. If you are an energetic and enterprising keyboarder, you 
can try your hand at improving the graphics display. The 6 
die looks pretty much like the real thing, you may have 
noticed, but some of the others—the 1 and 2 dice, for 
example—show very large white marks to indicate their 
value. By reworking the graphics symbols in lines 300 and 
following, you can revamp the display to more closely 
simulate what real dice look like. This takes careful planning 
and keyboarding, but you should be able to do it. 


2. With the addition of the RAM pack you may wish to add 
betting routines at line 900. This may be implemented by 
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changing lines 170 апа 290 to read GOTO 900. At the end of 
the program it would then be possible to branch back to line 
20. 
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Chapter 6 ВАССАКАТ 


e The Game 

€ Program 6: BACCARAT 
* Points of Interest 

* Possible Adaptations 


The Game 

The rules for this game may vary somewhat from those 
used in your local casino; for the purposes of this game, the 
rules are as follows: 


ө The two cards dealt to each player must add up to 9 or as 
close to it as possible. 


e All cards 10 or above count for 0. 


e Any point value greater than 9 is taken as 10 less. 
Therefore a score of 15 is regarded as 5 and a score of 1018 
counted as 0. 

e You play against the computer, but you must go first with 
both cards up. (The computer always has its first card 
down.) 
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. * Owing to the limitations imposed by the 2K memory, the 


following conventions have been adopted: 
(1) The player’s score is displayed to the left of the screen. 


(2) The computer’s score is displayed to the right of the 
screen. 


(3) Card values are represented by Y (for You) and C (for 
Computer). 


(4) CD means: Another CarD? 


(5) Y means Yes; N means No. (Hit the ENTER key after 
either response.) 


(6) After the third card is drawn, the computer will decide 
if it requires a third card. (The maximum allowed is 
three.) 
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Important Note: Due to the extensive use of all memory 
space in this program, it is recommended that after the 
program is typed in you type in CLEAR and then ENTER 
before the program is run. One more note; the permissible 
card values are A234567890JQK, where the 0 represents 10. 
Go to it, and good luck! 


Program 6: BACCARAT 


105 LET X$-'"A234567890JOK" 
110 PAUSE 90 

112 CLS 

115 LET X=1 

120 LET Z=1 

130 LET P=@ 

140 FOR T=1 TO 2 

170 GOSUB 800 

175 GOSUB 900 

180 PRINT AT Х+1,2+1;Ү$ 
190 LET P=P+Y 

200 LET X=X+3 

210 LET Z=Z+2 

220 NEXT T 

230 GOSUB 1000 

260 PRINT AT 19,1; ”Y: “ІР 
300 LET R71 

310 LET S=17 

320 LET D=0 


BACCARAT 43 


330 
340 
350 
400 
405 
410 
420 
430 
440 
445 
450 
460 
470 
480 
490 
500 
510 
515 
520 
545 
550 
555 
560 
563 
565 
570 
575 


FOR T=1 TO 2 

GOSUB 850 

GOSUB 900 

LET D=D+Y 

IF T=1 THEN GOTO 420 
PRINTAT R+1,S+1;Y$ 
LET R=R+3 

LET S=S+2 

NEXT T 

GOSUB 1100 

PRINT AT 19,17; "C:" 
PRINT AT 21,1; "CD?" 
INPUT O$ 

IF О%- “М” THEN GOTO 550 
GOSUB 800 

GOSUB 900 

PRINT AT X*1,Z*1;Y$ 
LET P=P+Y 

GOSUB 1000 

PRINT AT 19,4;P 

PRINT AT 19,20;D 

IF D=P THEN GOTO 600 
IF D>P THEN GOTO 650 
IF T=0 THEN GOTO 675 
GOSUB 850 

GOSUB 900 

PRINT AT В+1,5+1;Ү$ 
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580 GOSUB 1100 

590 PRINT AT 19,20;D 

596 LET T=@ 

597 GOTO 555 

600 PRINT AT 21,1; "TIE" 
610 GOTO 110 

650 PRINT AT 21,1;"LOST" 
660 GOTO 110 

675 PRINT AT 21,1; "WON" 
680 GOTO 110 

800 LET I-X 

810 LET J=Z 

820 RETURN 

850 LET I-R 

860 LET J=S 

870 RETURN 

900 PRINT АТ |,J; т=н 
910 FOR К=1+1 TO 1+3 

920 PRINTATK,;"E)]  (WN" 
930 NEXT K 

940 PRINT AT 1+4, J; ы’ 
950 LET Y -INT (RND* 13+1) 
960 LET Y$=X$(Y) 

965 IF Y> 10 THEN LET Y- 10 
970 RETURN 

1000 IF PX: 10 THEN RETURN 
1010 LET P-P-10 


BACCARAT 


1020 GOTO 1000 

1100 IF D< 10 THEN RETURN 
1110 LET D-D- 10 

1120 GOTO 1100 


Points of Interest 

Lines 800-820 and 850-870: Two subroutines are used to 
copy the card setup. They are located in lines 800-820 and 
850-870. This permits the subroutine in lines 900-970 to be 
used for both the player's and the computer's cards. 


Lines 900-970: The subroutine in these lines creates a card 
image; it also randomly selects a card value. 


Possible Adaptations 

1. If more than the computer's regular 2K memory is 
available, you may want to insert a betting routine at line 
1200 and send control there in lines 610, 660, and 680. 


2. You might want to ensure that the cards selected are 
unique. This can be done by including a dimensioned array: 
M(4 X 13). In such a setup, all the elements are initialized to 
zero, and the card selection is modified to include the 
selection of a suit (spades, hearts, clubs, or diamonds) using 
a random selection of 1, 2, 3 or 4. 


3. After choosing a random number | їо 13 апа another 1 to 
4 (say, 10 and 2), a check should be made of the value of 
M(2,10). If it's equal to 0, the card has not yet been used and 
is therefore available. Once it is used, however, that element 
should be set to 1. If M(2,10) is equal to 1, the card has 
already been used and two new values should be generated. 
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Chapter 7 SPACE PROBE 


e The Game 

* Program 7: SPACE PROBE 
* Points of Interest 

* Possible Adaptations 


The Game 

In this game you are playing the role of a fleet 
commander on a star base under attack by invisible aliens. 
You may fire a probe in one of four directions using one of 
the four *arrow commands" located on keys 5, 6, 7 and 8. 
Your shot is displayed by asterisks. If you are successful and 
actually hit an alien invader, this will be indicated on your 
radar panel, on the lower portion of the screen. You will be 
awarded 100 points for each hit. If you miss, however, your 
radar panel will register the miss. This has the effect of 
damaging your probe launcher, causing the distance it can 
fire to be shortened. To add to the problems, any damage 
sustained by your launcher is irreparable. 

The game terminates when the range of the probe 
becomes so short as to be ineffective. As soon as the point is 
reached that your shots can no longer fire far enough, the 
message GAME OVER is displayed. 
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Program 7; SPACE PROBE 


50 
60 
70 
80 
100 
103 
105 
110 
120 
130 
135 
140 


48 


LET A=0 

LET B=20 

LET C=30 

LET P=0 

PAUSE 30 

CLS 

PRINT AT 10,15; "ER" 
PRINT АТ 11,14; BER” 
PRINT AT 12,15; "E" 
LET X=INT (RND* 3+5) 
LET 2=0 

LET F=0 
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200 
210 
215 
220 
230 
240 
250 
255 
260 
300 
310 
320 
330 
450 
455 
460 
470 
480 
490 
500 
510 
530 
540 
590 
600 
610 
630 


ІҒІМКЕҮ%<>””ТНЕМ GOSUB 450 
IF F=1 THEN GOTO 300 
IF 7-0 THEN GOTO 130 
LET А=А+1 
Be sure to include 
LET B-B-.5 the decimal point 
LET С=С-1 
PRINT AT 21,12; "MISSED" 
IF A=11 OR В< 13 THEN GOTO 900 
GOTO 100 
LET P=P+100 
PRINT AT21,12;"A HIT" 
PRINT AT 21,20; "PTS: “Р 
GOTO 100 
LET Z=1 
IF INKEY$="'5" THEN GOTO 500 
IF INKEY$="6" THEN GOTO 600 
ІҒІМКЕҮ%- “7” THEN GOTO 700 
IF INKEY$- “8” THEN GOTO 800 
RETURN 
FOR !|- 13 TO A STEP -1 
PRINT AT 11,4% 
NEXT | 
IF X=5 THEN LET F=1 
RETURN 
FOR 1=13 TO В 
PRINT АТ I,15;"*" 
NEXT | 


SPACE PROBE 


640 IF X=6 THEN LET F=1 
690 RETURN 

700 FOR |=9 TOA STEP -1 
710 PRINT AT 1,15; "*" 
730 NEXT | 

740 IF X=7 THEN LET F=1 
799 RETURN 

800 FOR 1=17 TOC 

810 PRINT AT 1111; "*" 
830 NEXT ! 

840 IF X=8 THEN LET F=1 
890 RETURN 

900 PRINT AT 21,10; "GAME OVER" 


Points of Interest 
Lines 105-120: These set up the star base. 


Line 120: This line determines if an alien is present. 


Lines 220-240: The range of the space probe is reduced by 
these lines. 


Lines 455-490: The direction in which the probe is to be 
launched—up, down, left, or right—is determined by these 
lines. 


Lines 500—590: They set up the probe to be fired left. 
Lines 600-690: Launch the probe downwards. 

Lines 700-790: Launch the probe upwards. 

Lines 800-890: Launch the probe to the right. 
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Possible Adaptations 

If some additional memory space is available, each alien 
invader can be made to orbit the station. Each time a miss is 
registered, some action can be initiated, such as bringing the 
alien closer to the station by one unit. For each hit, the alien 
can be repelled one unit further from the base. 
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Chapter 8 MATH QUIZ 


The Game 

Program 8: MATH QUIZ 
Points of Interest 
Possible Adaptations 


The Game 

In this game the computer will test your skills of 
elementary arithmetic. You really don't have to get nervous 
because all the program does is to exercise your ability to 
add, subtract, multiply, and divide. Which one of these is 
selected is up to the computer, not you. All you have to do is 
to answer the questions correctly! 

Each time you play this game, the values selected for 
calculation will be different because they are randomly 
selected by the computer. When the question is displayed, 
you are invited to select the correct answer from four 
possible answers—a sort of multiple-choice quiz, if you will. 
The choices have been arranged so that each of the answers 
could easily be mistaken for the correct one, so you really 
have to be alert to do well on this quiz. Thereisno time limit 
imposed on the user, so you can take your time before 
making your choice. 
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Each time your selection is correct, the score is 
incremented by 1. Each time you select a wrong result, you 
are notified and you are given the correct result. To 
terminate the program, simply type in 0 for an answer. The 
best of luck to you! 


Program 8: MATH QUIZ 

100 LET C=0 

105 LET P=0 

110 DIM O(4) 

120 LET K=INT (RND*4« 1) 
125 LET P=P+1 

130 GOSUB K * 100 200 
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135 PRINT AT 3,12; Р, 

140 LET S- INT (АМО * 4+1) 

150 LET Q(S)=A 

160 GOSUB 700 

170 PRINT AT 84; "QUESTION. ==> ";X;Y$;Y; 
„ш р" 

180 PRINT AT 11,1; 

190 FOR J-1 TO 4 

200 PRINT J”. ';O(;" — "5; ы. 

210 NEXT J oe 

220 PRINT AT 17,8; РІСК. 1,2,3 ОВ 47 

230 INPUT G 

240 IF G- 0 THEN GOTO 900 

250 IF Q(G)-A THEN GOTO 800 

260 PRINT AT 17,8; "WRONG, ІТ WAS. NO. "5 
S 

270 GOTO 820 

300 LET X=INT (RND * 90+ 10) 

310 LET Y=INT (RND * 907 10) 

320 LET A-X* Y 

330 LET Y$-" ^ " 

340 RETURN 

400 LET X-INT (RND * 90-- 100) 

410 LET Y -INT (ВМО * 904 10) 

420 LET A=X-Y 

430. LET Y$-^ -. " 

440 RETURN 
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500 
510 
520 
530 
540 
600 
610 
620 
630 
640 
700 
710 
720 
730 
740 
750 
755 
760 
710 
800 
810 
820 
830 
840 
850 
900 
910 
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LET X-INT (RND*20+4) 

LET Y-INT (RND*20+4) 

LET A=X*Y 

LET Y$s" * ^" 

RETURN 

LET Y -INT (RND* 10+2) 

LET X=INT (RND* 204 10) * Y 

LET A-X/Y 

LET Y$-" / " 

RETURN 

FOR |=1T04 

IF O(I)2A THEN GOTO 760 

LET O(I) -INT (RND*(1+1)-3) *5+A 
FOR Z=1 TO (1-1) 

IF O(Z) -Q(I) THEN GOTO 720 
NEXT Z 

IF О(1) =А THEN GOTO 720 

NEXT I 

RETURN 

LET С=С+1 

PRINT AT 17,8;"*** CORRECT ***" 
PRINT AT 21,10; "SCORE: '";C;"/";P 


PAUSE 100 

CLS 

GOTO 120 

LET D=C/(P-1)* 100 920, at the top of 
CLS the next page. 
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920 PRINT AT 11,8; "FINAL SCORE: "МТО 


Points of Interest 

Line 130: A calculated GOSUB brings you to the appro- 
priate subroutine for a question on addition, subtraction, 
multiplication, or division. 


Line 170: The question with the randomly selected operation 
stored in Y$ is printed out by this line. 


Lines 300-640: These lines generate the random numbers to 
be used in the questions. 


Lines 700-770: These represent the routine that generates the 
phony alternatives, all of which correspond in some degree 
to the correct answer. 


Lines 730-755: These lines ensure that each choice is unique. 
In other words it avoids the possibility of duplication of 
alternatives. Line 730 checks whether a particular incorrect 
answer has been used yet. Line 755 makes sure that an 
incorrect answer is not equal to the correct answer. 


Lines 800-820: These lines are activated when the answer is 
correct; they are responsible for displaying the score. 


Lines 900—920: If the user types in 0 for an answer, these lines 
are reached. This has the effect of calculating the final score, 
clearing the screen, printing out the final score, and 
terminating the program. 


Possible Adaptations 

It would make for an even more challenging game if the 
responses not only had to be correct, but also had to be 
entered within a limited period of time. This could be 
implemented in lines 220-240 using the familiar PAUSE and 
INKEYS statements. 
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Chapter 9 НАМС ЕМ 


Тһе Сате 

Program 9: HANG’EM 
Points of Interest 
Possible Adaptations 


The Game 
Who among us has not been fascinated from early 


childhood by the game of Hangman? With the aid of your 
T/S 1000, it is possible to play this game electronically! This 
version of Hangman responds to each incorrect answer by 
graphically building up the scaffold and the body right there 
on the screen. 

The rules are that the hidden words may be of varying 
length. When a letter is typed in, the hidden word is scanned 
and the letter, if present, is entered in the display in the 
position where it belongs. If a particular letter appears more 
than once, it is inserted in all the appropriate positions 
simultaneously. If the selected letter is not correct, then 
another part of the scaffold is completed and is displayed on 
the right of the screen. The seventh incorrect guess will result 
in the termination of the game. 
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Program 9: HANG’EM 


10 LET X$="IMPOSSIBLEPROGRAM __ 


YESTERDAY  RIDICULOUSGRAPHICS _ 


J CUSTOMER 


TELEPHONE UPWARD.. 
CLARIFY 


20 LET Y=INT (RND*8+1) 


30 LET W$=X$((Y-1)*10+1 TO (Ү-1) * 10+ 
10) 


40 LET H$-W$ 

50 FOR |=1 TO 10 

60 IF W$(I) <>” _” THEN GOTO 90 
70 GOTO 100 

90 МЕХТ! 


60 СНАРТЕК 9 
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100 LET L-1-1 
110 LET D$- "iic c mn edm (1 TO L) 
130 PRINT AT 2,12; HANG, EM HIGH" 
140 LET E-0 

170 PRINT AT 7,9; "GUESS. А LETTER" 
180 PRINT AT 17,3;D$ 

190 INPUT L$ 

191 LET Е=0 

220 FOR I-1TOL 

230 IF L$-W$(I) THEN GOTO 300 

240 NEXT | 

250 IF F=1 THEN GOTO 170 

260 LET E=E+1 

270 GOTO E* 1004500 

300 LET D$(I) -W$(1) 

310 LET W$(I)2" " 

320 LET F=1 

330 IF D$-H$(1 TO L) THEN GOTO 410 
340 GOTO 220 

410 PRINT AT 21,16; “ШШЕН” 
420 PRINT AT 17,3;D$ 

430 STOP 

600 PRINT AT 10,25; ‘R= 
610 FOR O-11 TO 19 

620 PRINT AT O31;"I" 

630 NEXT O 

640 GOTO 170 


HANG 'EM 


700 PRINT АТ 11,24;“Ш Ей” 
710 PRINT AT 12,24; “ый” 
720 GOTO 170 
800 PRINT АТ 13,22; "mmn" 
810 GOTO 170 
900 PRINT АТ 13,25; "Em" 
910 GOTO 170 
1000 PRINT AT 14,24; “ШИ” 
1010 PRINT AT 15,24; EB" 
1020 GOTO 170 
1100 PRINT АТ 16,24; "EM" 
1110 PRINT АТ 1723; (B8. E" 
1120 GOTO 170 
1200 PRINT АТ 1823; Ы 
1210 PRINT AT 20,23; “HUNG” 


Points of Interest 


Line 10: All the words are stored in the string variable X$ in 
line 10. It can be seen that they are of varying length. 
However, to insure that the words are correctly accessed, 
each word of less than ten letters is padded out to the right 
with blanks. 


Line 30: In this line a word is selected and stored into W$. 
Line 40: Stores а copy of W$ in H$. 


Lines 50-100: These lines determine the actual length of the 
word selected by searching until the first space is encountered 
and by setting L equal to the calculated length. 
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Line 110: This line sets up the space in the display for the 
hidden letters. 


Lines 220-330: The dashes symbolizing the unknown letters 
are replaced by the actual letters if they are indeed present in 
the hidden word. 


Line 270: This is a calculated GOTO statement that sends 
control to the part of the program that sets up the 
appropriate display. 


Line 600: This line and all the lines to the end of the program 
set up the entire display for the hanged man. 


Important Notes: For this program to run you must 
first hit the CLEAR and ENTER keys. Also, the list of 
unknown words is limited to eight. 


Possible Adaptations 

1. You should feel free to change the 8 words in line 10 to 
any words of your own choosing. However, be sure that they 
are always padded out with blanks to the right, thereby 
creating uniform ten-letter words. 


2. If extra memory is available, you may be tempted to 
expand the pool of hidden words. Should you do this, be 
sure to change line 20 to reflect the new number of words. If 
you do not do this, the extra words will reside in X$ but will 
never be chosen. 


3. Another and much more challenging modification is to 
allow for guessing the entire word without having to type in 
the individual letters. Can you figure out how to do this? 


4. The game could probably be improved if the letters 
already selected were printed out for you on the lower part of 
the screen. This would be particularly useful for the younger 
folks. Try it. 
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5. In addition, it would be very nice if some error-trapping 
mechanism were built into the program to avoid the 
possiblity of selecting a letter which has already been 
selected. 

6. If you are a grammarian, you know that “HUNG,” as it 
appears in line 1210, should really be “HANGED.” Change 
it if you like. 
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Chapter 10 SEQUENCE? 


e The Game 

e Program 10: SEQUENCE? 
ө Points of Interest 

ө Possible Adaptations 


The Game 

This program isa variation of the electronic game called 
“Simon.” It allows one to four players to participate, and 
with each round the difficulty is increased. You are asked to 
repeat a sequence of numbers which is flashed in the middle 
of the screen, one number at a time. The game starts with 4 
such digits. Each player is asked to repeat a random 
sequence of numbers. Any player who fails is immediately 
eliminated from the game, and the correct sequence is 
displayed. 

The next round includes all the remaining players, but 
the number of digits displayed is increased by one. Moreover, 
the flashing of the numbers is speeded up. As you will find out 
when you run the program, the numbers are flashed very fast 
indeed. The maximum sequence possible contains 10 
numbers, but it is safe to bet that you will never reach it! 
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Once all the players are eliminated, the score for each is 
listed. If you enjoy a stiff challenge—this is it! 


Program 10: SEQUENCE? 


100 DIM P(4) 

105 DIM S(4) 

110 DIM Н$(10) 

120 LET Х%-“0123456789" 


130 LET М-4 
140 FOR I=1 TO 4 
145 CLS 


150 IF P(I)21 THEN GOTO 270 
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160 PRINT AT 3,10; "PLAYER  ";l;" GOES" 
163 PRINT AT 5,1Z;N;" NUMBERS" 
165 PAUSE 100 

170 FOR J=1 TON 

175 LET K-INT (RND* 10-1) 

180 LET H$(J)- X$(K) 

190 PRINT AT 11,15;H$(J) 

200 FOR H=1 TO (10-N) 

205 NEXT H 

210 PRINTAT 11,15;" " 

220 NEXT J 


230 PRINT AT 16,5; "REPEAT THE SEQUENCE 
_NO._”;l 


24@ INPUT A$ 

250 IF A$=H$(1 TO N) THEN GOSUB 400 
260 IF A$<>H$(1 TO N) THEN GOSUB 500 
265 PAUSE 150 

270 NEXT I 

280 IF NX 10 THEN LET N=N+1 

290 FOR T=1 TO 4 

300 IF P(T)»0 THEN GOTO 140 

310 NEXT T 

320 CLS 

330 PRINT AT 36; "ALL PLAYERS ARE OUT" 
340 PRINT AT 7,12; "05139 

350 FOR T-10 TO 13 


360 PRINT AT T,7; PLAYER. ";T-9;" MORE RM 
S(T-9) 
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370 NEXT T 

380 STOP 

400 PRINT AT 18,10; "OKAY, NO. "I 
410 LET 5(1)=5(1) +1 

420 RETURN 

500 PRINT АТ 18,10; "SORRY. NO. 724 
510 LET P(I)-1 


520 PRINT АТ 11,2; "PLAYER “1;4 IS OUT 
OF THE GAME" 


530 PRINT АТ 13,10;"IT. WAS “;Н%(1 ТОМ) 
540 RETURN 


Points of Interest 
Line 120: The ten digits 0—9 are stored in the string variable 
X$. This is for ease of extracting a digit. 


Lines 190-210: In these lines the digits are displayed and the 
time interval is varied. 


Lines 250—260: In these linesa test is made to determine if the 
typed-in sequence is correct. 


Lines 320-380: These clear the screen and display the final 
Scores. 


Lines 400-420: These confirm a correct response and add 1 
to the score of each successful player. If fewer than 4 players 
are desired for a game, those not being played may be 
eliminated by typing in an incorrect response immediately 
following the first round. 


Possible Adaptations 


1. The input may be timed by inserting appropriate instruc- 
tions in lines 230-250 
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2. If the pace of the game is too fast, lines 200-205 (which 
represent a simple delay loop) may be adjusted. For faster 
play, the number should be reduced; for slower play, it 
should be increased. 


SEQUENCE? 69 


Chapter 11 SCRAMBLE 


* The Game 

e Program 11: SCRAMBLE 
e Points of Interest 

e Possible Adaptations 


The Game 

If you are fond of the game “Jumbles,” this game is for 
you. The computer has stored in its memory 10 different 
words, each of which is six characters in length. The 
computer randomly selects one of them, scrambles it up, and 
displays it on the screen for a period of 3 to 4 seconds. You 
are required to decipher the scrambled word and type it in 
before the time limit is exceeded. If you succeed, you gain a 
point. If you either miss the deadline or type in an incorrect 
answer, you get 0 for your efforts. At the end of each round 
the computer asks you if you want to go around again. It is 
only fair to say that some of the words are very difficult to 
decipher, especially for the uninitiated. 
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Program 11: SCRAMBLE 


100 


105 
106 
110 
115 
120 
125 
130 
135 
140 
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LET Х$= "MELLOWFASTERGOPHERJACKA 
LRETURNVICTORDELETESCROLLRANDO 
MJUMBLE” 

LET Т=@ 

LET С=0 

DIM A(6) 

DIM D$(6) 

LET Y=INT (RND* 107 1) 

LET Т=Т+1 

LET H$=X$((Y-1)*6+1 TO (Y-1)*6+6) 
GOSUB 400 

FOR |=1 TO6 


CHAPTER 11 


Ё 


БЕ = 


E ш = 


= НЕ БЫ 


m) 


150 
160 
170 
180 
190 
193 
195 
200 
210 
220 
225 
230 
240 
250 
260 
300 
310 
315 
317 
320 
323 
325 
330 
340 
350 
360 
370 


LET J=INT (RND *6+1) 

IF A(J)<>@ THEN GOTO 150 

LET A(J)=1 

LET D$(I) =H$(J) 

NEXT I 

IF D$-H$ THEN GOTO 135 

CLS 

PRINT AT 2,8; "SCRAMBLED WORDS" 
PRINT AT 8,7; WHAT. 15 THIS WORD?" 
PRINT AT 12,13;D$ 

PRINT АТ 13,13; "m m m n n 
PAUSE 200 

IF INKEY$ <>’ THEN GOTO 300 
PRINT AT 21,12; "TIME IS UP" 
GOTO 325 

INPUT R$ 

IF R$=H$ THEN GOTO 320 

PRINT AT 21,13; "WRONG" 

GOTO 325 

PRINT AT 21,12; "CORRECT" 

LET С=С+1 

PRINT AT 21,25;C; "/*;T 

PAUSE 100 

PRINT AT 21,10; "MORE? Y OR N" 
INPUT O$ 

IF 0%-“Ү” THEN GOTO 120 

STOP 


SCRAMBLE 


400 FOR Е=1 TO 6 
410 LET A(E) -Ó 
420 NEXT E 

430 RETURN 


Points of Interest 
Lines 140-190: The loop in lines 140-190 scrambles the 
letters in the selected word. 


Line 193: This line ensuresthat the scrambled word is not the 
same as the unscrambled word. 


Lines 220-225: Take care of displaying of scrambled letters. 


Lines 230-240: The timing mechanism is lodged in lines 
230-240. 


Lines 250-330: These test the user’s response and display the 
results. 


Line 340: After each round the user is asked if he or she 
wishes to go around again. A response of Y for yes sends 
control to line 120, where another word is selected. 


Possible Adaptations 
1. The list of ten words may be changed at the discretion of 
the user. The words must, however, have exactly six letters. 


2. For increased difficulty, the lengths of the words may be 
increased. If this is done, lines 110, 115, 130, 140, 150, and 
400 must be amended accordingly. 


3. The number of words must be reflected in line 120. 


4, The time allotted for each word is controlled by the 
PAUSE in line 230. This may be changed to suit your 
convenience. 
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Chapter 12 CONCENTRATION 


* The Game 

* Program 12: CONCENTRATION 
e Points of Interest 

* Possible Adaptations 


The Game 

*Concentration" is the two-player computer version of 
the well-known card game. This version has only 48 
electronic “cards,” represented by the letters A-L, with 4 
occurrences of each letter. The computer randomly shuffles 
the cards and player number 1 goes first. 

The forty-eight cards are represented by a 6 X 8 matrix 
composed of 6 rows and 8 columns. A selection of a card is 
made by inputting the row number first (1 to 6) andENTER 
and then the column number (1 to 8) and ENTER. At this 
point, the first card selected is revealed and the player is ask- 
ed to make the second selection. Now the second is revealed. 
If they match, the player gains a point and continues, with 
cards being replaced by blanks that can never be accessed 
again. If the cards do not agree, they are covered up and the 
second player goes. 

The process is repeated for the second player. The game 
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is terminated when all twenty-four pairs of cards have been 
matched. The winner is the player who has matched the most 
pairs of cards. 

Important Note: Prior to running this program, hit the 
CLEAR and ENTER keys. Due to memory restrictions, no 
error checking is possible in this program. To avoid 
problems take care to select cards that have not already been 
matched and removed from the screen. 

Another Important Note: Patience is required after the 
command RUN is typed in and the ENTER key is hit. It 
takes the computer about 60 seconds to generate a great 
many random numbers, to hide the cards, and to prepare the 
display. 


Program 12: CONCENTRATION 


10 DIM A(6,8) 
20 LET P1=@ 
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30 LET P2-0 

40 LET X$-"ABCDEFGHIJKL"' 

50 FOR 1=1 TO 12 

60 FOR J-1 TO 4 

70 LET X=INT (RND*6^ 1) 

80 LET Y-INT (RND*8- 1) 

90 IF A(X, Y) <> 0 THEN GOTO 70 

100 LET А(Х,Ү) =1 

110 NEXT J 

120 NEXT I 

130 PRINT AT 1,11; "(еи 

140 PRINTAT3,10;1 23456 7 8" 

150 FOR 1=1 TO 6 

160 PRINT AT 2*1+3,8;1; 

170 PRINT" MN m E NH E NH 
s" m 

180 NEXT I 

200 LET Z=1 

230 PRINT AT 17,13;Z;" GOES" 

280 GOSUB 300 

290 GOTO 230 

300 PRINT AT 19,15; "1ST" 

310 INPUT X 

320 INPUT Y 

410 LET F-A(X, Y) 

420 PRINT АТ 2*X+3,2* Y*8; X$(F) 

430 PRINT AT 19,15; "2ND" 
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440 
450 
460 
470 
475 
480 
482 
463 
484 
486 
490 
500 
510 
520 
530 
550 
555 
560 
570 
580 
590 
600 
610 


620 IF P1+P2<>24 THEN GOTO 510 
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INPUT R 
INPUT T 
LET S-A(R,T) 


PRINT AT 2* R*3,2* T*8; X$(S) 


PAUSE 100 

IF F=S THEN GOTO 550 

IF Z=1 THEN GOTO 486 
LET Z=1 

GOTO 490 

LET Z=2 

LET Y$- W" 

PRINT AT 19,15; “NO _” 
PRINT AT 2* X-3,2* Y*8; Y$ 
PRINT AT 2*R43,2* T*8; Y$ 
RETURN 

PRINT AT 19,15;"OK " 

LET Y$="_" 

IF Z=1 THEN GOTO 600 

LET P2=P2+1 

PRINT AT 11,29;P2 

GOTO 620 

LET P1=P1+1 

PRINT AT 11,3;P1 
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Points of Interest 

Lines 50-120: The nest of loops in lines 50-120 hides the 
cards in various locations, ensuring that only four occur- 
rences of one card will be placed in memory. 


Lines 130-180: The screen is set up for the game in these 
lines. 


Lines 230-320: These request either player to key in the 
position of the first card. 


Lines 410-420: The first card is flipped over in lines 410-420. 


Lines 430-450: These allow the player to key in-the second 
card. 


Lines 460-470: These flip the second card. 


Lines 480-530: The matching of the cards is done in lines 
480-486. If no match is made, the card is flipped back in lines 
490-530. 


Lines 500-530: These lines, in conjunction with line 555, 
blank out the cards in the event that they match. 


Lines 560-620: These lines print out the points scored in the 
game. The score on the left is for player number 1, and the 
score on the right is for player number 2. 


Possible Adaptations 

In order to carry out the modifications that follow it is 
essential to have more than the 2K of memory provided with 
the computer. 

Some error trapping can be made by arranging in lines 
550-555 for a 0 to be inserted in matrix A each time a pair is 
found. This, in conjunction with additional lines at 300 and 
430, could reject the choice of a card no longer available. 
This could be accomplished in the following way: When 
inputting a card in lines 320-410, check to see if A(X, Y)=0. 
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If so, СОТО 300 апа request the player to entera new pair of 
co-ordinates. Also, check if in lines 450-460 A(R,T) - 0. If so, 
GOTO 430 in the same way. 
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Chapter 13 ALIEN GUNNER 


ө The Game 

* Program 13: ALIEN GUNNER 
* Points of Interest 

* Possible Adaptations 


The Game 

This game is called *Alien Gunner." In this scenario you 
are the last Earth defense base still operational, and you are 
feverishly warding off hordes of alien attackers swarming in 
at all levels of the atmosphere. 

In order to eliminate aliens you must score a direct hit 
(no nipping). You are limited to a total of 15 shots. Your 
available reserve energy is shown on the lower left of the 
screen. After each shot is fired one unit of reserve energy is 
removed from the display. If you score a direct hit you will be 
rewarded by the spectacle of the alien ship disintegrating. 
Points are awarded according to the level of the attacking 
alien ship. 

In order to fire at an alien located directly above simply 
press any key. The game is over when your reserves have 
been reduced to zero. 
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Program 13: ALIEN GUNNER 


10 
20 
30 
40 


FOR 1=0 TO 28 STEP 2 
PLOT 1,0 

NEXT | 

LET К=@ 

LET W=0 

FOR Z-0 TO 14 

IF W<>@ THEN GOTO 90 
LET F=INT (RND*4+1) 
LET S=INT (RND * 29+ 2) 
PRINT АТ F,S-1; "Ыы 
FOR 1=0 TO 63 


100 PLOT 1,2 
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СНАРТЕК 13 


110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
205 
210 
220 
225 
230 
240 
250 
260 
270 
280 
290 
300 
350 
400 
450 
500 


UNPLOT 1,2 
IF INKEY$ «» "" THEN GOTO 150 
NEXT | 

GOTO 90 

FOR J-2 TO 41 

PLOT |,J 

UNPLOT I,J 

NEXT J 

UNPLOT 28-2*Z,0 
IFI-2*SOR 1-2%5-1 THEN GOTO 220 
LET W=1 

GOTO 28@ 

GOSUB (Е+2)* 100 

LET W=0 

PRINT AT F,S- 1; 4% ы” 

PAUSE 50 
PRINTATFS-1;"  " 

PAUSE 50 

PRINT AT 21,27; K 

NEXT Z 

GOTO 700 

LET К=К+1000 

RETURN 

LET К=К+500 

RETURN 

LET K=K+250 
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550 RETURN 

600 LET К=К+100 

610 RETURN 

700 PRINT AT 10,12; "ЕЛЛЕШӘМІНЕ” 


Points of Interest 
Lines 60-80: The point at which an alien ship appears on the 
screen is determined in lines 60-80. 


Lines 90-140: These lines not only control the radar blip that 
continuously scans the screen; they also handle the read 
from the keyboard. 


Lines 150-180: These lines launch the shot in a vertical 
direction. 


Line 190: This line uses a formula to remove one unit of 
supplies from the reserves after each shot is fired. 


Line 200: It is executed if a direct hit is made. The line directs 
control to the routine that adjusts the score. 


Lines 230-260: These lines control the display of the ship in 
two stages. The first is when it is in the process of 
disintegrating and the second when it is in the stage of final 
destruction. 


Lines 300-610: Point values are added to the score by the 
routine in lines 300-610 in conjunction with line 220. 


Possible Adaptations 
1. You might be tempted to increase the number of shots 
from 15 to any number of your choice. 


2. If you have artistic inclinations you might want to 
redesign the alien ships. This would also be a good practice 
in working the graphics mode. 
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Chapter 14 BARRIERS 


е The Game 

* Program 14: BARRIERS 
e Points of Interest 

* Possible Adaptations 


The Game 

While you are in a combative spirit, how about tackling 
this game? Here you are a commander of a small scouting 
spacecraft in desperate need of supplies. The nearest base, 
however, is located on the other side of the formidable and 
treacherous Forbidden Zone. In order to reach the base you 
must cross three electronic force fields. Each field, however, 
has weak points. The idea of the game is to reach the 
Forbidden Zone by slipping through the chinks. 

You may hit any key to advance your ship, which 
always starts out at the bottom left of the screen. You cannot 
linger in one of the gaps, nor can you hit one of the force 
fields, unless you want your family and friends to be sent 
appropriate condolences. 

If you are gifted with uncanny skill and somehow 
manage to find your way safely through all three of the force 
fields, you may then pick up supplies and receive your 


points. If you hit the outer rim of space (the edge of the 
screen) your spacecraft is mysteriously teleported back to 
the initial position and the flight recommences. The game 
terminates the moment you crash into one of the three fields 
or linger too long in any one of the gaps. 


Program 14: BARRIERS 


4 PRINT AT 2,8; “THE_FORBIDDEN_ZONE"” 

5 LET X$= “mmm 
m 

6 LET Z$=” _ _ EE  mEÇFsmmiHHE 
иш" 

7 LETBS-"IMENEN ae ЫШ 


" 


8 LET W=0 
10 LET 1=20 
15 LET P=@ 
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20 

30 

40 

50 

60 

70 

80 

90 
100 
110 
115 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 


LET J-14 
PRINT AT 1,J; "A" 

FOR К=1 TO 100 

LET Y$-X$(1) 

LET X$(1 TO 19) =X$(2 TO 29) 

LET X$(20)=Y$ 

LET T=10 

GOSUB 300 

PRINT AT T,6;X$ 

IF INKEY$ «» ""THEN GOSUB 400 
IF P=1 THEN GOTO 10 

LET Y$-2$(20) 

LET 2$(2 TO 20) -Z$(1 TO 19) 

LET Z$(1)- Y$ 

LET T=12 

GOSUB 320 

PRINT AT T,6;Z$ 

IF INKEY$ <> "" THEN GOSUB 430 
LET Y$=B$(1) 

LET B$(1 TO 19) =B$(2 TO 20) 

LET В$(20) - Y$ 

LET T=14 

GOSUB 340 

PRINT AT T,6;B$ 

IF INKEY$ «» '"" THEN GOSUB 460 
NEXT K 

GOTO 40 
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300 
310 
320 
330 
340 
350 
400 


405 
408 
410 
415 
420 
425 
430 


440 
460 


470 
475 
480 
490 
500 
510 
520 


IF 1=10 AND X$(10) = “Ш” THEN GOTO 500 
RETURN 

IF 1=12 AND Z$(10) =” THEN GOTO 500 
RETURN 

IF I=14 AND В$(10) = "BM" THEN GOTO 500 
RETURN 

IFI-1210 AND X$(10) =“ W THEN GOTO 
500 

IF |>=8 THEN GOTO 470 

PRINT AT I,J; 

LET W=W+500 

LET P=1 

PRINT AT 21,1;W 

RETURN 

IF |-1=12 AND Z$(10) - "IB" THEN GOTO 
500 

GOTO 470 

IF |-1=14 AND В9(10)- "IBI" THEN GOTO 
500 

PRINT AT I I,J;”_“ 

LET 1=1-1 

PRINT AT I,J; “A” 

RETURN 

PRINT АТ |,J;""_” 

PRINT AT T,J; E" 

PRINT AT 20,10; “ШШЕ ЕВ] 
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Points of Interest 
Lines 5-7: The force field barriers are set up in these lines. 


Lines 40-270: These control the rightward movement of the 
top and lower barriers and the leftward movement of the 
middle barrier. (At the same time, the lines are constantly 
checking on the movement of the spacecraft.) 


Lines 300-350: These check to see whether you are lingering 
too long in a gap. 


Lines 400-490: These check to see if your spacecraft is about 
to crash. 


Lines 500-520: These change the letter A to its inverse-video 
form to represent a crash. 


Possible Adaptations 

1. You might want to add one or more barriers. Be aware, 
however, that this will slow down the game. 

2. An extremely difficult but satisfying modification you 
might want to consider is to control the ship in three 
directions (up, left, and right). 

3. Another challenging change to make is to give your 
spacecraft continuous motion in the last direction typed. (In 
other words, once you type in the left key, your spacecraft 
will continue to move left until you hit right.) Since you will 
need to stop, a key to accomplish this action must be added 
to the program. 
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Chapter 15 FILL ‘ER UP 


The Game 

Program 15: FILL 'ER UP 
Points of Interest 

Possible Adaptations 


The Game 

Regardless of how well you have fared up until now, the 
next game is very likely to trip you up. If you are the kind of 
person who never closes his eyes to a severe challenge, start 
keying in the next program; but don’t say you were not 
warned! 

The purpose of the game is to fill in the large, black box 
by controlling the passage of the light, shaded box. The large 
box must be filled in completely. In order to control the 
direction of the light box, use the 5, 6, 7, and 8 keys. (The 
arrows on these keys are usually used for editing.) 

Bear in mind that once a direction has been set the light 
box continues on its path until changed by the pressing of an 
arrow key. You must not go through any of the walls, no 
matter what. Just to liven up matters a little more, there is a 
time limit! 
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Important Note: In view of the fact that so much of the 
available memory is used up by this program, it is 
recommended that you type CLEAR and ENTER before 
you run it. 


Program 15: FILL 'ER UP 


10 PRINT AT 4,10; "pem m m m mm mm" 
20 FOR I-5 TO 13 

30 PRINT AT 1,10; “l|” 
40 PRINT AT 1,20; W" 

50 NEXT | 

60 PRINT AT 14,10; "Eum m m m m um tl ' 
70 DIM X(9,9) 

80 LET R=1 
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90 
100 
110 
120 
200 
210 
220 
240 
242 


245 
248 
260 
500 
510 
520 
600 
610 
620 
700 
710 
720 
800 
810 
900 
910 


FILL ‘ER UP 


LET С=5 

LET Т=0 

LET Y-2 

GOTO 900 

IF INKEY$ <>’ THEN GOTO 240 
GOSUB 1000 

PAUSE 100 

LET Y$=INKEY$ 

IF Y$-"5" OR Y$="6" OR Y$-2"7" OR Y$= 
“8” THEN GOTO 248 
GOTO 200 

LET Y=VAL Y$ 

GOTO Y * 100 

LET С=С-1 

IF C<1 THEN GOTO 1100 
GOTO 900 

LET R=R+1 

IF R>9 THEN GOTO 1100 
GOTO 900 

LET R=R-1 

IF R<1 THEN GOTO 1100 
GOTO 900 

LET C=C+1 

IF C>9 THEN GOTO 1100 
LET X(R,C)=1 

PRINT AT R*4,C* 10; "ES" 
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913 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1100 
1119 
1120 
1150 
1160 


GOSUB 1000 

IF ІМКЕҮ$ <> ""THEN GOTO 200 
FOR 1=1 TO 9 

FOR J=1 TO9 

IF X(1,J) =0 THEN GOTO Y * 100 


NEXT J 

NEXT | 

PRINT AT 19,10; "OD " 
STOP 

LET Т=Т+1 

IF Т> 130 THEN GOTO 1100 
RETURN 

IF T« 130 THEN GOTO 1150 
PRINT АТ 19,12; "YOU. LOSE" 
STOP 

PRINT AT R*4,C« 10; 46%” 

PRINT AT 19,10; "BROKEN. WALL" 


Points of Interest 
Lines 10-60: The outer rim of the box is set up. 


Lines 200-245: These accept one of the four arrow keys 
which control the direction taken by the moving line. None 


of the other keys has any effect on the program. 


Line 248: Whatever key is used is then converted into a 
number in line 248, so that in line 260 it may be used ina 


calculated GOTO. 


Lines 500-920: The filling up of the large box is taken care of 


by these lines. 
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Lines 930-990: These lines determine whether the area is 
completely filled in. 


Lines 1000-1120: These lines affect the time limit. 


Lines 1010-1100: The message that you have broken the wall 
is printed out, at which point the program terminates. 


Possible Adaptations 

If more than 2K memory is available, the frame may be 
enlarged to cover the entire screen. The DIM statement in 
line 70 would have to be changed accordingly. In addition, 
lines 610, 810, 930, and 940 would have to be amended, as 
well as the time limit in lines 1010 and 1100. 
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Chapter 16 5НООТ IT 


e The Game 

e Program 16: SHOOT IT 
€ Points of Interest 

ө Possible Adaptations 


The Game 

In order to get yourself in the right mood for this game, 
imagine that you are in your favorite shooting gallery—in 
outer space, of course. You are armed with three implosion 
beams and your mission is to blast away at a stream of stars 
that are orbiting around you in a menacing fashion. You 
may fire any one of the beams by typing the corresponding 
number 1, 2, or 3. However, there is the restriction that while 
one weapon is being fired the remaining two are temporarily 
disabled. The stars always travel in pairs, so that if you are 
fortunate enough to hit one you bag the other automatically. 

In the game you are limited to a total of twenty shots. 
You not only have to gauge correctly the speed and the angle 
before you fire, you must also anticipate the future position 
of the stars. Admittedly this is not easy, but you are 
rewarded with no fewer than 250 points for each pair that is 
hit. Isn't it worth the effort? 
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Program 16: SHOOT IT 


100 
110 
120 
125 
130 
135 
140 


145 
150 
160 
165 
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FOR |=7 ТО 23 STEP 8 

PRINT АТ 18,1; IP" 

PRINT АТ 19,1- 1; RH INT(I/7); "WE" 
NEXT | 

LET 7-0 

LET Р=0 

LET х= ез ONE жж ** ** ** 


LET R=18 

PRINT AT 1,8; "SHOOTING. GALLERY" 
LET К=1 

LET F=@ 
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170 
180 
190 
200 
205 
210 
220 
230 
250 
300 
310 
320 
323 
325 
327 
330 
340 
350 
360 
370 
380 
400 
410 
420 
430 
440 
450 


LET Y$-X$(1 TO 2) 

LET X$(1 TO 30) - X$(3 ТО 32) 
LET X$(31 TO 32)- Y$ 

PRINT AT 2,0;X$ 

IF К=@ THEN GOTO 220 

IF INKEY$ « ““ THEN GOSUB 300 
IF F=1 THEN GOSUB 330 

IF Z-20 THEN GOTO 600 

GOTO 170 

IF INKEY$-"1" THEN LET |-7 
IF INKEY$="2" THEN LET |- 15 
IF INKEY$="3" THEN LET |-23 
LET Z=Z+1 

LET F=1 

RETURN 

LET R-R-1 

PRINT АТ В; +" 
PRINTATR,Il;" " 

LET К=@ 

IF R=2 THEN GOSUB 100 
RETURN 

IF X$(I) <> " " THEN GOTO 450 
LET F=0 

LET K=1 

LET В=18 

RETURN 

LET X$(|I-1 TO I* 1)" — " 
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460 LET P=P+250 

465 PRINT AT 21,14;P 

470 LET K=1 

480 LET R=18 

490 LET F=0 

500 FOR J=1 TO 32 

510 IF X$(J) <> ”_”” THEN RETURN 

520 NEXT J 

600 PRINT AT 11,10; "Таже жеуде” 


Points of Interest 
Lines 100-130: The FOR/NEXT loop in lines 100-130 sets 
up the three implosion beams at positions 7, 15, and 23. 


Lines 150-250: These set the stars in motion. 


Lines 300-320: These lines determine which weapon was 
fired: 1, 2, or 3. 


Lines 330-380: The subroutine in lines 330-380 controls the 
motion of the stars and beams. 


Lines 400-440: The subroutine in these lines checks ifa hit 
has been made. 


Lines 450-490: These lines tally the points scored and 
remove the damaged stars from the stream. 


Lines 500—520: These lines determine whether there are any 
more targets left. 


Possible Adaptations 

1. The number of weapons can be increased from three. This 
would mean that line 100 would have to be changed as well 
as lines 300-320. 
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2. The stars could be made to travel faster. This would mean 
a change in lines 170—190. In order to increase the speed bya 
factor of 1.5, the following changes could be implemented: 


170 LET Y$-X$ (1 TO 3) 
180 LET X$(1 TO 29)=(4 TO 32) 
190 LET X$(30 TO 32)- Y$ 


3. The number of shots can be changed from twenty to any 
other number of your choosing. 
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Chapter 17 RICOCHET 


The Game 

Program 17: RICOCHET 
Points of Interest 
Possible Adaptations 


The Game 

In this game you are being attacked by high-powered 
photon balls being aimed at you from inter-galactic attackers. 
You are in sole command of the five remaining earth 
stations. The attackers are unable to fire at you directly; they 
must fire at an orbiting satellite from which their shots are 
bounced off in your direction. 

Whenever a photon ball is bounced off the satellite, it 
will head toward your five stations. It is then that you 
activate your defensive shields, with the proviso that at any 
given moment you can defend only one station. Keys 1,2,3,4, 
and 5 are used to activate your shields. If you succeed, your 
station is left intact and you amass additional energy, 
represented by gaining extra points. If you do not defend 
your station in time or you defend the wrong station, the 
station under attack will be demolished. In order for your 
complex shielding apparatus to work, you must keep at least 


two stations intact. For this reason the game terminates 
when only one station remains. 


Program 17: RICOCHET 


5 DIM A(5) 
10 FOR I=5 TO 15 
20 PRINT АТ 1,1; "IBI" 


30 NEXT | 

40 PRINT AT 1,10; H Ии шш 8H 
— B" 

45 LET Н=0 

50 PRINTAT2010;M A © 98H 
--- Б” 

55 LET P=@ 
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60 

70 

75 

80 

90 
100 
110 
130 
150 
200 
210 
300 
310 
400 
410 
500 
510 
600 
610 
650 
660 
670 
680 
690 
700 
710 
715 


LET X-INT (RND*5+1) 
GOSUB X * 100 100 
LET J=(X-1)*5+10 
FOR !-2 TO 10 
PRINT АТ 1,Ј; “O” 
PRINTAT|,J;" " 
LET J=J+K 

NEXT | 

GOTO 650 

LET K=-1 
RETURN 

LET К--1.5 
RETURN 

LET K--2 
RETURN 

LET K--2.5 
RETURN 

LET К--3 
RETURN 

LET X-INT (ВМО *5+1) 
GOSUB X * 100+ 100 
LET J-2 

FOR 1=11 TO 19 
PRINT AT I,J; “0” 
PRINTATIJ;" " 
LET J-J-K 


IF ІМКЕҮ$ <>” THEN GOSUB 850 


RICOCHET 
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720 NEXT | 

730 PRINT AT 20,(X-1)*5*10;" " 

735 IF A(X)=1 THEN GOTO 810 

740 LET H=H+1 

745 LET A(X) 71 

750 IF H<4 THEN GOTO 810 

760 PRINT АТ 12,12; ТӨЛЕШ” 

770 STOP 

800 LET P=P+500 

810 PRINT AT 21,10; “5СОВЕ- “ІР 

820 GOTO 60 

850 LET Y$=INKEY$ 

860 IF Y$>="1" AND Y$<="5" THEN GOTO 
880 

870 GOTO 720 

880 IF VAL Ү%-Х AND A(X)=@ THEN GOTO 800 

890 GOTO 720 


Points of Interest 
Lines 60-75: The angle at which the photon ball is aimed is 
controlled by lines 60-75. 


Lines 200-610: The displacement for each of the 5 different 
angles of the photon balls is taken care of in lines 200-610. 
With a little help from line 710, this routine also handles the 
reflection angles. 


Lines 730-745: These lines handle the elimination of any 
unprotected station and further ensure that the photon balls 
already fired will cause no further damage. 
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Lines 850-890: The routine in these lines checks to see 
whether the correct shields have been activated. 


Possible Adaptations 

If more than 2K memory is available, the speeds at 
which the photon balls are fired may be changed by 
modifying the following two lines: 
80 FOR 1=2 TO 10 STEP 2 


and 


680 FOR !=11 TO 19 STEP 2 
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Chapter 18 INVASION 


The Game 

Program 18: INVASION 
Points of Interest 
Possible Adaptations 


The Game 

In this game, five different types of galactic aggressors 
have banded together and are planning to invade Earth. In 
order to pursue their aim, they dispatch small scout ships 
which gather information and relay it back to their mother 
ships. It is at that point that the scout ships glide to Earth in 
the form of guided missiles. Your mission as guardian of the 
Earth is to catch these falling ships and prevent them from 
crashing into major population centers. For this purpose 
you are provided with a super-catcher that can move to the 
left and to the right: use the 5 key for movement to the left 
and the 8 key for movement to the right. For rapid 
movement, use the H key, which will jettison you toward 
hyperspace. 

If your aim is successful, you will observe the attacking 
ship trapped by your catcher, at which point part of your 


ә 


catcher disappears temporarily. If you miss, you are debited 
1 of the 5 “lives” you have. 

It is only fair to warn you that the falling ships do not 
always fall in a straight line. They could fall diagonally or to 
the left or to the right. This is completely under the control of 
the computer. 


Program 18: INVASION 

50 LET W=@ 

60 LET В$=”@ ышы” 

70 LET M=@ 

80 LET J=15 

90 PRINT АТ 20,J; "Ill" 
100 LET X=INT (RND*28)*2 
105 LET T=INT (RND*5)+1 
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110 
120 
200 
210 
220 
230 
280 
300 
310 
320 
330 
340 
400 
410 
420 
430 
435 
440 
450 
460 
470 
480 
490 


495 
500 
510 


IF X « 12 THEN GOTO 200 

IF Х>>20 THEN GOTO 300 

LET Y=INT (RND*3)+1 

IF Y=1 THEN LET К=0 

IF Y>1 THEN LET K=.5 

GOSUB 4@@ 

GOTO 100 

LET Y=INT (RND*3)+1 

IF Y=1 THEN LET К-0 

IF Y>1 THEN LET K=-.5 

GOSUB 4@@ 

GOTO 100 

FOR 1=1 TO 20 

PRINT AT |-1,X;" " 

LET X=X+K 

PRINT АТ І,Х;БВ%(Т) 

IF INKEY$ <>" THEN GOSUB 500 
NEXT I 

PRINT АТ |-1,X;" " 

IF J=X OR J* 12 X THEN LET W-W-T * 100 
IF J<>X AND J* 1 <> X THEN LET M=M+1 
IF М> =5 THEN GOTO 900 
PRINTAT21,7;"PTS- ';W;" LIVES» ” 
5-M 

RETURN 

LET Y$=INKEY$ 

IF Y$-2"5'" THEN LET P=-1 
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520 IF Y$="8" THEN LET P=1 

525 IF Y$-"H'" THEN GOTO 580 

530 IF J-P 7» 30 OR J+P<1 THEN RETURN 

540 РБІМТАТ20,;4  " 

550: LET J=J+P 

560 PRINT АТ 20,J; "Kl" 

570 RETURN 

580 PRINT АТ 20,J;”_  " 

590 LET J=INT (RND * 30) +1 

600 GOTO 560 

900 PRINT АТ 19,12; "(eZ ҮЙӨ” 

910 PRINTAT21,7"PTS- ';W;" .LIVES- "5 
5-M 


Points of Interest 
Lines 100-120: These lines determine which ship will fall 
toward the earth. 


Lines 200-340: These lines randomly set the path of the 
invading mother ship; the odds are good that it will fall in a 
diagonal direction. 


Lines 460—495: The successes and failures are recorded in the 
routine between lines 460-495. 


Lines 500-600: These handle the movement of the catcher as 
well as hyperspace. The hyperspace function randomly sets 
your catcher in a different location along the bottom of the 
screen. 


Lines 900-910: The final results are displayed. 
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Possible Adaptations 

You may wish to add to the 5 different shapes of the 
falling ships. This may be done by changing line 60. 
However, this change would have to be reflected in line 105 
as well. 
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Chapter 19 DOGFIGHT 


ө The Game 

* Program 19: DOGFIGHT 
* Points of Interest 

* Possible Adaptations 


The Game 

You are now a jet fighter pilot in the midst of the 
fiercest, wildest, most challenging duel of your entire career. 
The enemy jet is flying directly above you at twice your 
speed. You will recognize the enemy jet since it is shown in 
black on the screen, while yours is shaded gray. Every time 
the jets pass over each other, the enemy will try to riddle your 
jet full of holes. If you are quick you might be able to blast 
him before you are fired upon. 

To fire a shot use the F key. If you hit the enemy jet it 
will be damaged and will retreat upwards on the screen, with 
you in hot pursuit. However, if the enemy hits your jet it will 
have the effect of causing your jet to fly at a lower level while 
he chases you. The game has two possibie outcomes: either 
you succeed in driving the enemy away, in which case you 
become the master of the skies, or he manages to irreparably 


damage your jet and force you to land, in which case, of 
course, you lose the game. Go at ’em! 


Program 19: DOGFIGHT 


100 LET E=8 

110 LET P=11 

120 LET F=3 

125 LET X$-" . " 
130 LET Q-29 

135 CLS 

140 PRINT AT E,F;X$ 
150 PRINT AT E* 1,F;X$ 
160 PRINT AT P,O;X$ 
170 PRINT AT P4 1,0;X$ 
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18@ 
190 
200 
210 
220 
230 
240 
250 
260 
270 
275 
28@ 
290 
300 
310 
320 
330 
340 
350 
360 
400 
410 
420 
430 
440 
450 
460 


LET F=F+4 

IF F^ 29 THEN LET F=3 

LET Q*0-2 

IF O« 0 THEN LET O-29 

PRINT AT E,F; "Fami" 

PRINT AT E+1,F; ume" 

PRINT AT P,Q; "ази" 

PRINT AT P+1,0; "AFN" 

IF INKEY$<>"" THEN GOSUB 700 
IF F<>Q THEN GOTO 140 

PAUSE 10 

IF INKEY$-"F'" THEN GOTO 4007 
PRINT АТР,0+1; +” 

PRINT АТР+1,0+1; "+" 

PRINT AT 21,10; "YOU. WERE HIT" 
LET P=P+2 

LET E=E+2 

PAUSE 10 

GOSUB 500 

GOTO 135 

PRINTATE,F*1;"*" 

PRINT AT E+1,F+1;"*" 

PRINT AT 21,10; "YOU, HIT. HIM" 
LET P=P-2 

LET E-E-2 

GOSUB 500 

GOTO 135 
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500 PAUSE 5@ 

510 IF E<1 THEN GOTO 550 

520 IF P>19 THEN GOTO 600 

530 RETURN 

550 PRINT АТ 11,3; "YOU. DID IT; YOU 
АШЕЕ THE SKY" 

560 PRINT AT E*2,F;" * " 

570 PRINT AT E+3,F;” * " 

580 STOP 

600 PRINT АТ 11,3; "YOUR. JET WAS . 
FORCED, ТО LAND" 

610 PRINTATP-20;" * " 

620 PRINTATP-1,0;" * " 

630 STOP 

700 PRINT AT P-1,0«1;"*" 

710 PRINT AT P-1,041;"_” 

720 RETURN 


Points of Interest 

Lines 140-250: The intricate jet movements are handled by 
lines 140-250. It is in this routine that the computer's jet is 
maintained at twice the speed of your jet. 


Lines 260-280: These lines determine whether you are fast 
enough to hit him as he passes directly overhead. 


Lines 310-340: Should your jet receive a direct hit, you will 
be forced to fly at a lowerlevel. This eventuality is taken care 
of in lines 310-340. 
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Lines 400-450: The computer’s jet is sent into retreat when 
you hit it. This is the role played by lines 400-450. 


Lines 510-630: These lines determine if the game is overand, ` 
if so, who was victorious. 


Possible Adaptations 

You may want to change the speed of the jets (see lines 
180, 190, 200, and 210). By changing line 275.you can also 
alter the interval of time allotted to fire the shots as the jets 
line up or meet. The PAUSE instruction can be amended for 
this change. x i 
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Chapter 20 SKETCH 


e The Game 

ө Program 20: SKETCH 
€ Points of Interest 

e Possible Adaptations 


The Game 

Don’t be fooled by the brevity of this program. Despite 
the fact that it appears to be so short, it actually takes up 
most of the memory of the T/S 1000, mainly for setting up 
the display. The whole screen becomes your sketch pad. The 
“pen” or “brush” is the computer’s plotter. You have the 
freedom to direct the pen to draw in any of the 4 directions 
indicated by the arrow keys (5,6,7 and 8). Here you have an 
opportunity to be as creative as you like. 

Should you wish to terminate the movement of the pen 
at any point, merely press any key other than 5,6,7, and 8. 


Program 20: SKETCH 


10 LET 1=0 
20 LET J-0 
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30 
50 
60 
70 
80 
90 
100 
110 
120 
140 
150 
160 
200 
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IF INKEY$ <> ”” THEN GOTO 50 
IF INKEY$-'5" THEN GOTO 100 
IF INKEY$-''6" THEN GOTO 200 
IF INKEY$- “7” THEN GOTO 300 
IF INKEY$="'8" THEN GOTO 400 
GOTO 30 

FOR X=! ТО Ø STEP -1 

PLOT X,J 

LET !- X 

IF INKEY$ «^ '"" THEN GOTO 50 
NEXT X 

GOTO 30 

FOR Y-J TO 0 ЅТЕР -1 
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210 PLOT I,Y 

220 LET J=Y 

230 IF ІМКЕҮ$ <> "" THEN GOTO 50 
250 NEXT Y 

260 GOTO 30 

300 FOR Y=J TO 43 

310 PLOT I, Y 

320 LET J- Y 

340 IF INKEY$ €» "" THEN GOTO 50 
350 NEXT Y 

360 GOTO 30 

400 FOR X=! TO 63 

410 PLOT X,J 

420 LET |=X 

440 IF INKEY$<>‘" THEN GOTO 50 
450 NEXT X 

460 GOTO 30 


Points of Interest 
Lines 30-90: The keyboard readings are set up by these lines. 


Lines 100-160: The movement of the pen to the left is taken 
care of by lines 100-160. 


Lines 200-260: The downward pen movement is the 
responsibility of these lines. 


Lines 300-360: Upward motion of the pen is controlled by 
these lines. 


Lines 400-460: These move the pen to the right. 


SKETCH 123 


The careful reader of this program will notice that 
nowhere is there a single PRINT statement. In addition, the 
drawn line is thinner than any of the characters on the 
keyboard. How come? The answer lies in the fact that 
advantage is taken of this versatile computer’s PLOT 
command. 


Possible Adaptations 

Should you choose, the character being drawn may be 
changed by replacing the PLOT command by the more 
conventional PRINT AT, which requires that you specify a 
particular character to be drawn. The user should bear in 
mind, however, that the PRINT AT instruction uses a screen 
size of 22 X 32 while PLOT uses a screen size of 44 X 64, and 
uses smaller pixels. 
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Chapter 21 MESG DISPLAY 


e The Game 

* Program 21: MESG DISPLAY 
* Points of Interest 

e Possible Adaptations 


The Game 

Most of us are familiar with the moving word displays 
used for advertising purposes or for news bulletins. This last 
program produces the same kind of display right on your 
screen. To start, respond to the question “What is your 
choice?” by typing in 0 and ENTER. When the computer 
asks you how many cycles you want, type in 3, again 
followed by ENTER. You should now see before your eyes 
the sample message: THIS IS THE T/S-1000... running 
across the screen in inverse video. It will do this 3 times. 

Now that you’ve seen how it works, we can begin the fun 
part. In response to the question “What is your choice?” type 
in a 1. This allows you to input any message of your 
choosing, just so long as it is less than 32 characters. 
Whatever message you opt for will now be displayed across 
the screen for whatever number of cycles you type in. 
Whatever your message, you can put it up in lights! 
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Program 21: MESG DISPLAY 


5 DIM X$(32) 
10 PRINT "ENTER. А 0 FOR. MESSAGE" 
20 PRINT "ENTER. А 1. TO. INPUT ONE" 
30 PRINT "WHAT 15 YOUR CHOICE?" 
40 INPUT X 
50 IF X=0 THEN GOTO 110 
60 PRINT "ENTER. YOUR. MESSAGE" 
70 INPUT X$ 
80 LET L-LEN X$ 


90 LET X$(L+1 ТО 32)=" 


100 GOTO 120 
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110 LET X$- RIS See 


[| HEBBHERE 

| 120 PRINT "NO. OF. CYCLES?" 
n 130 INPUT Y 

| 135 CLS 


140 FOR 1=1 TO Y 
150 FOR J=1 TO 32 

160 LET Y$-X$(1) 

sn 170 LET X$(1 ТО 31)-X$(2 TO 32) 
| 180 LET X$(32) - Y$ 

190 PRINT AT 12,0; X$ 


г 200 NEXT J 
u 210 NEXT | 
215 CLS 
B 220 PRINT"ANY MORE? Y OR N" 
230 INPUT O$ 
Е 240 IF O$-"Y" THEN GOTO 10 
250 PRINT АТ 20,12; "Безе 
~ 
| | Points of Interest 
Lines 80 and 90: These lines contain a little trick that takes 


any character string you enter (less than 32 characters in 
| | length), and pads it with blanks so that it is actually 32 
characters long. 


Lines 150-200: The actual movement of the display is 
handled by the code in these lines. You might wish to 
incorporate this technique in some of your own programs in 


E order to create a moving display. 
П 
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Possible Adaptations 

You may, if you desire, predefine several different 
messages and assign to them different number values. In this 
way the messages may be displayed “at the touch of a 
button.” Should you have an important message that you 
want to be seen you could have it displayed on the screen in 
an otherwise darkened room. It would be most unlikely that 
such a message would be missed! 
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Chapter 22 SAVING YOUR 
PROGRAMS ON A ТАРЕ 
RECORDER 


€ Saving a Program 
ө Loading a Program 
ө Important Reminders 


Typing in a long program each time it is needed can be 
very time-consuming. Móreover, havingto key ina program 
each time leaves open the door to error. However, a program 
can be saved on magnetic tape in much the same way that 
you ordinarily save a piece of music by recording it on your 
tape recorder. 


Saving a Program 

To save a program after it has been typed into your 
computer and checked out to be correct, all you have to do is 
to type the word SAVE and decide upon a name for your 
particular program. If you choose the name “COPY CAT,” 
for example, you would type into your computer: 


SAVE "COPY CAT" 


At this point you should start the recorder in its 
"recording" mode. Then hit the ENTER key, and the 
program (or more accurately, a copy of your program, since 


129 


the program will still reside in the memory of the computer) 
will be recorded on the tape. You will know when the 
recording is complete by the termination code 0/0 which will 
appear at the bottom left-hand corner of the screen. At that 
point you may turn off the recorder. 


Loading a Program 

In order to load a program from magnetic tape into the 
computer, type in NEW followed by the ENTER key. Now 
you type either: 


LOAD “COPY CAT” 


which searches for and loads the program called “COPY 
CAT,” or: 


LOAD ” ” 


which searches for and loads the first complete program 
found on the tape. 


Important Reminders 

1. Don't forget to make a note of the precise name of the 
program you are storing, including any spaces between 
words that may exist in the name. If you save a program 
called “COPY САТ” on tape and then later try to load a 
program called “COPYCAT” from the same tape, the 
computer will not be able to find the program. 


2. We have found that for either loading or saving a 
program, a tape recorder in the "mono" (rather than 
“stereo”) mode works best. If your tape recorder is stereo 
only, you should turn the “balance” control all the way left 
or all the way right. In addition, you should leave the 
*volume" control quite high, perhaps three-quarters of the 
way to full volume; the “tone” control should likewise be at 
its highest (treble) setting. 
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Appendixes 


e Appendix A: Keywords for the T/S 1000 

e Appendix B: Graphics Symbols for the T/S 1000 

ө Appendix C: The T/S 1000 Keyboard 

e Appendix D: An Extra Copy of Program 1, 
*COPY CAT" 


Appendix A KEYWORDS FOR THE T/S 1000 


The following words, listed in alphabetical order, can 
be accessed on the T/S 1000 with a single keystroke. These 
keywords always appear in BOLDFACE in the program 
listings in this book. 


Keyword Mode Key Meaning = 
ABS G absolute value H 
ACS arcossine 
AND or shifted-2 joining conditions ER 
ASN A arcsine 11 
АТ С specify print position 
ATN D arctangent 
CHR$ U number to character а 
CLEAR X clears variables and Ц 

screen 
CLS V clears screen ES 
CODE I character to number M 
CONT C continue execution 
COPY 7. copies screen to 

printer T 
COS W cosine H 
DIM D dimensions arrays 

and strings um 
EXP X exponential Н 
FAST or shifted-F fast mode 
FOR F sets up loop xx 
GOSUB H subroutine branch H 
GOTO G unconditional branch 
IF U condition testing 
INKEYS B keyboard read E 
INPUT I accepts data Н 
INT R returns integer 

portion ü | 
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Keyword 
LEN 
LET 
LIST 
LLIST 
LN 
LOAD 


LPRINT 
NEW 
NEXT 
NOT 
OR 


PAUSE 
PEEK 


PI 
PLOT 
POKE 


PRINT 
RAND 


REM 
RETURN 
RND 
RUN 
SAVE 
SCROLL 
SGN 

SIN 
SLOW 
SQR 
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L 


г” 


г” 


Кеу 


shifted-G 
Z 
J 


shifted-S 
A 

N 

N 
shifted-W 


- бы, 


ifted-D 


m = O rT Q ч < tri 


Meaning 

length of string 

assigning values 

lists program 

lists on printer 

natural log 

loads program from 
tape 

prints to printer 

clears memory 

indicates end of loop 

negation 

two or more 
conditions 

pauses the machine 

shows memory at 
specified point 

value of T 

places pixel on screen 

places data in speci- 
fied point of 
memory 

prints item 

Indicates starting 
position of RND 

remarks 

return to GOSUB call 

random function 

runs program 

saves to tape 

scrolls one line 

sign of a number 

sine 

slow mode 

square root 
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Keyword 
STEP 


STOP 
STRS 


TAB 
TAN 
THEN 
TO 
UNPLOT 
USR 


VAL 
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Mode 
or 


or [8 


^mm 


ог 


ог I8 


Ru) ES Ea 


Bz] 


Key 
shifted-E 


shifted-A 
Y 


P 
E 
shifted-3 


shifted-4 
W 
L 


J 


Meaning 

increment of 
FOR/NEXT 

stops execution 

numeric values to 
string 

tabs over spaces 

tangent 

resultant of TRUE 
condition 

specifies boundaries 

unplots pixel 

machine code within 
BASIC 

converts numeric 
characters to actual 
numeric values 
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Appendix В GRAPHICS SYMBOLS FOR THE T/S 1000 


The following graphics symbols are available on the 
T/S 1000. Please note that in this listing each symbol is 
“boxed,” meaning that all four of its borders are shown even 
though these borders will not appear on the screen. (For 


] 


pn 


example, the very first symbol listed here will show up on the 
screen merely as a space, and not an empty box.) It should 
also be noted that letters in inverse video are also accessed 


via the [& mode. 


Symbol Mode Key Symbol Mode Key 
|] or [B SPACE BE SPACE 
Е | shifted-1 — a shifted-Q 
L, shifted-2 Е shifted-W 
нш shifted-7 |р shifted-6 
B shited4 y shifted-R 
Е sites |E shifted-8 
"a shifted-T = shifted-Y 
ES shifted-E | m shifted-3 
ES shifted-A Ё shifted-H 
T shifted-D m shifted-G 
pem shifted-S ez shifted-F 
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Appendix С THE T/S 1000 KEYBOARD 


PLOT UNPL! INPUT POKE PRINT | | 
] 


SIN Т, RND STRS CHRS CODE 


NEW GOSUB LOAD LIST 


FUNCTION кек 
AC ARCCOS а ЧЫ UT 


PY CLEAR ыр мера ps 


Н т 


IN KEYS N 
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Appendix D AN EXTRA COPY OF PROGRAM I, COPY CAT 


This is an extra copy of Program 1, “Copy Cat.” You 
may tear it out of this book and mark it with your own 
reminders as you follow the *Keyboarding Notes" in 
Chapter 1. š 


Program 1: COPY CAT 


100 LET X$=“ASDFGHJKL” 

105 LET T=0 

110 LET М-0 

120 PRINT АТ 3,12; "ер 

125 LET Y$-X$ (INT (RND*9+1) ) 

130 LET N=N+1 

140 PRINT AT 11,15; Y$ 

150 PAUSE 75-N 

160 PRINT AT 11,15;" ' 

170 IF INKEY$- Y$ THEN GOTO 200 

180 PRINT AT 19,5; "YOU. MISSED; IT. WAS . 
(О 

190 ЅТОР 

200 LET T=T+1 

210 PRINT AT 21,15:T 

220 GOTO 125 
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Catalog 


If you are interested in a list of fine Paperback 
books, covering a wide range of subjects 

and interests, send your name and address, 
requesting your free catalog, to: 


McGraw-Hill Paperbacks 
1221 Avenue of Americas 
New York, N. Y. 10020 
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Here are twenty-one compact and fully explained games pro- 
grams written expressly for the Timex/Sinclair 1000, the 2K-RAM 
machine that has become one of the fastest-selling personal 
computers in the world. These games of chance and skill are 
written in BASIC and are all runnable with the 2K RAM (Random 
Access Memory) built into the T/S 1000. The games will not only 
intrigue your entire family, but provide an entertaining and infor- 
mative introduction to programming. With only an ordinary tele- 
vision set and the T/S 1000, you can enter these programs and 
play away to your heart’s content. And with the addition of a tape 
recorder, you can save the programs and load them back into the 
machine whenever you want to play one of the games or modify 
one of the listings. 


The clearly written instructions that accompany each of the 
introductory programs will make it possible for the absolute 
beginner to enter and run the first game within one hour. And the 
notes and documentation that accompany the more advanced 
programs offer suggestions about how to alter the programs. 
Besides providing countless hours of entertainment, these 
twenty-one CRUNCHERS will serve as the ideal introduction to 
your T/S 1000. 


Yin Chiu is a recent graduate of New York University. At present 
he is a programmer with a large New York bank. 


Henry Mullish teaches computer science at New York Univer- 
sity and is the author of more than fifteen books on computers. 
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